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e BTLD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L=-6 HOST RESIDENT FACILITY PAGE 0001 6 
000001 2 TITLE BTLD SOFTWARE 
e 000002 son! 4 XDEF ESBTLD NEEDED FOR MODULE MAP e 
go0003 0000 5 S$BTLD EQU $ START OF MODULE BTLD 
@ & 
¢ & 
@ 6 
@ ® 
@ e@ 
@ 6 
e e 
® ® 
. e 
@ © 
@ © 
6 @ 
e @ 
& 6 
® @ 
e ® 
& e 
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@ BTLD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L=6 HOST RESIDENT FACILITY PAGE 0002 ) 
ae 1000 /EJECT 
000005 10170 * 
| e 000006 1020 *10 DRIVERS e 
000007 1030 * 
@ 000008 0000 1040 SIOCHO EQU z*0000' 10 CHANNELS ) 
000009 0040 1050 $I10CH1 EGU 2Z'0040! 
: 000010 0080 1060 S$IO0CH2 EQU 2Z'0080' 
e@ 000011 O0CO 1070 S$IOCH3 EGU z*00CO e 
000012 1080 * 
| 000013 0001 1090 $OTCTL EQU 2°0001" CONTROL INFORMATION OUTPUT 
e 000014 0002 1100 $ICTLI EQU z2*0002' INPUT INT CONTROL INFO & 
| 000015 0003 1110 S$ICTLO E@U z'0003' OUTPUT INT CONTROL INFO 
000016 0005 1120 $O0CCTL EQ@U Z'U005' OUTPUT CHANNEL CONTROL 
@ 000017 0006 1130 S$TSKRI EQU Z*0006' INPUT TASK REGISTER e 
| 000018 0007 1140 $TSKRO EGU 2'C007" OUTPUT TASK REGISTER 
| 000019 0008 1150 SINMBA EGU Z*U008" INPUT MEMORY BYTE ADDRESS 
@ 000020 OOOA 1160 SINMMA EQU Z*'QOOGA' INPUT MEMORY MODULE ADDRESS e 
000021 o00c 1170 SINRNG EGU Z'OO0C' INPUT RANGE RESIDUE 
000022 OOOF 1180 $OBCTL EQU Z'OOOF' OUTPUT BUFFER CONTROL 
e 000023 0010 1190 SCFGAI EGU 2'0U10' INPUT CNFG REGISTER A e 
' 000024 0011 1200 S$CFGAO EQU 2*0011" OUTPUT CNFG REGISTER A 
000025 0012 1210 S$CFGBI EGU Z'0012' INPUT CNFG REGISTER B 
@ 000026 0013 1220 $CFGBO EQU 2'0013' OUTPUT CNFG REGISTER B @ 
| 000027 1230 * | 
1 000028 0018 1240 $S$ISTS1 EQ@U 2'0018" | INPUT STATUS REG 1 
® 000029 OO1A 1250 $S$ISTS2 EQU Z*OO1A' INPUT STATUS REG 2 @ 
0000390 0026 1260 SIDINP EGU Z'0026' i INPUT DEVICE ID | 
000031 1270 * 
: e 000032 0009 1280 SIOLD EQU Z2*0009" SIMPLE LOAD (NO DIRECTION) @ 
7 000033 0009 1290 SIOLDI EQU SIOLD+$I10CHO LOAD AND START DCW EXECUTION (TO US) 
000034 0049 1300 S$IOLDO EGU SIOLD+S$I0CH1 LOAD AND START DCW EXECUTION (FROM US) 
d e 000035 | 1310 * @ 
: 000036 1320 *MISCELLANEOUS CHANNELS 
000037 1330 * 
: & 000038 0000 1340 CPUOCH EGU O CHANNEL OF CPU#O & 
4 000039 0400 1350 BTLDCH EGU 2'0400' BOOTLOAD CHANNEL 
: 000040 FF 80 1355 LASTCH EQU Z'FF80" LAST POSSIBLE L6 CHANNEL TO CHECK FOR DISKETTE 
‘ 000041 1360 * 
e 000042 1370 * e 
: 000043 1380 *CLOCK BLOCK DEFINITIONS 
e 000044 7 1390 * © 
: 000045 0001 1400 FPTR EQu 1 FIRST BLOCK POINTER 
i 000046 0002 1410 LPTR EQU 2 LAST BLOCK POINTER (SAF) 
: e 000047 1420 * & 
| 000048 0003 1430 USRDTA EQU 3 START OF DATA IN QUEUE BLOCKS 
| 000049 1440 * 
 ¢@ 000050 0003 1450 SWORD EQuU 3 S“REGISTER- OR STATUS @ 
: 000051 0004 1460 UWORD EQU 4 USERS XB? 
| 000052 0006 1470 RWORD EQU 6 RUN ADDRESS 
—@ e 
e @ 
| 
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000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
0u0072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 
000084 
000085 
000086 
000087 
000088 
0u0089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
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OO0D 
DOODA 
0018 
ODOA 


0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 


0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
OO4A 
0048 
O04C 
0040 
OO4E 
OO4F 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
OOS5A 
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2000 
2001 
2002 
2003 
2004 
2005 
2006 
e007 
2008 
2009 
2010 
20171 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2137 
20358 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 


DTSS L=6 HOST RESIDENT FACILITY 


/EJECT 

© 

*ASCII VALUES 
* 

*CONTROL CHARACTERS 
* 

SASCCR EQU 13 
$SASCLF EQU 10 
SASCEC EQU 27 
SCRLF EQU $ASCCR*Z*OT00'+S$ASCLE 
* 

*NUMBERS (0-9) 
* 

SASCO EQU 48 
SASC1 EQU 49 
$SASC2 EQU 50 
SASC3 EQU 51 
$ASC4 EQU 52 
SASCS EQU 53 
SASC6 EQU 54 
$ASC7 EQU 55 
$ASC8 EQU 56 
SASCI EQU 57 
* 

*LETTERS (A-Z) 
; , 
SASCA EQU 65 
SASCB EQU 66 
SASCC EQU 67 
SASCD EQU 68 
SASCE EQU 69 
SASCF EQU 70 
SASCG EQU 71 
$ASCH EQU 72 
SASCI EQU 73 
SASCJS EQU 74 
SASCK EQU 75 
SASCL EQU 76 
$ASCM EQU 77 
SASCN EQU 78 
$ASCO EQU 79 
SASCP EQU 80 
SASCQ EQU 81 
SASCR EQU 82 
SASCS EQU 83 
SASCT EQU 84 
SASCU EQU 85 
SASCV EQU 86 
SASCW EQU 87 
SASCX EQU 88 
$ASCY EQU 89 
$ASCZ EQU 90 


C/R L/F PAIR 
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BILD 


000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
O00122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
V00142 
000143 
000144 


SOFTWARE 


0020 
0024 
O02? 
0028 
0029 
OQO2A 
Q0028 
O02C 
O02D 
OOZ2E 
OO2F 
OO3A 
0038 
QO3C 
O03D 
GO3E 
OO3F 
0040 
OO5C 
NOSE 
OO5F 
OO7F 
LETT 


0005 
0018 
OOTA 


0009 
0008 
O00C 
0019 
0010 
OUTE 
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2052 
2053 
2954 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2044 
2072 


2073 


2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
283 
2034 
2085 
2086 
2087 
2088 
2089 
2090 
2091 


/EJECT 
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*SPECIAL CHARACTERS 


+d 

SASCSP 
BASCOL 
SASCAP 
SASCLP 
SBASCRP 
BASCAS 
SASCPL 
SASCCM 
SASCDS 
BASCDT 
BASCES 
SASCCN 
BASCSC 
BASCLT 
SASCEQ 
SASCGT 
BASCQM 
BASCAT 


SASCBS 


SASCUA 
BASCBA 
SASCRO 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


32 
36 
39 
40 
41 
42 
43 


a 


SBRORO EQU SASCRO*Z'0100'+t+SASCRO 


& 


*CONTROL CHARACTERS 


* 


BACCE EQU $ASCE=64 
SACCX EQU SASCX=64 
SACCZ EQU SASCZ-64 


* 

BASCHT 
SASCVT 
BASCFF 
SASCEM 
SASCGS 
SASCRS 


9 HORIZONTAL TAB 
11 VERTICAL TAB 

12 FORM FEED 

25 END MEDIA 

29 GROUP SEPERATOR 
30 RECORD SEPERATOR 
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TIME DELAY PAIR 
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@ 8TLp SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L=6 HOST RESIDENT FACILITY PAGE 0005 e 
000145 2092 /EJECT 

e 000146 2093 * e 
000147 2094 *SPEED ASSIGNMENT TABLES 
000148 2095 «* 

& 000149 0000 2096 $810 EQU O LEVEL6 CODING FOR SPEED TABLES @ 
000150 0002 2097 $515 EQU 2 
000151 0003 2098 $5830 EQU 3 

€ 000152 0004 2099 $S60 EQU 4 & 
000153 0005 2190 $8120 EQuU 5 
000154 0006 2101 $8780 EQU 6 

@ 000155 OOOA 2102 $8240 EQU 10 & 
000156 0008 2103 $8480 EQU 11 
000157 O00C 2104 $8960 EQuU 12 

@ 000158 OO00D 2105 $S81920 EQU 13 e 
000159 2106 * 
000160 0010 2107 S$SMAX EQU 16 UP TO SIXTEEN DIFFERENT SPEED SETTINGS 

e 000161 2108 * @ 
000162 2109 * 
000163 2110 *SET MODE CONSTANTS 

@ 000164 c111 « @ 
000165 0040 2112 SM$OOO EQU 2'0040" BASE FOR MODE SETTING COMMANDS 
000166 e113 * 

& 000167 0040 2114 SM$ECH EQU 272'0040° SET ECHOPLEX & 
000168 0041 2115 SMSROT EQU 2'0041! SET RAW OUTPUT 
000169 0042 2116 SMSMFR EQU Z'0042' MAINFRAME READY 

@ 000170 0043 2117 SM$EOO EQU 2°'0043'! MAINFRAME LOGICAL END OF OUTPUT @ 
000171 0044 2118 SMSFRD EQU Z*0044! SET FRIDEN MODE 
000172 0045 2119 SMBRDO EQU Z'CU45!? READ OUTSTANDING 

e 000173 0046 2120 SMSIDY EQU 2'004G6! IDLE DELAY (CTIME/FILL) & 
000174 2121 * 
000175 0060 2122 SMSDLY EQU 2Z'O06C! SET DELAY PARAMETERS 

r 000176 0060 2123 SMS$OLO EQU SMSDLY+t0 @ 
000177 0061 2124 SM$DL1 EGU SMSDLY+1 
000178 0062 2125 SM$DL2 EQU SMSDLY+2 

& 000179 09063 2126 SM$DL3 EQU SMSDLY*3 & 
000180 0064 2127 SMS$DL4 EQU SMSDLY+4 
000181 0065 2128 SMEDL5 EQU SMSDLY+5 

e 000182 0066 2129 SMS$DL6 EQU SMSDLY+6 e 
000183 0067 2130 SMSDL7? EQU SMSDLY+?7 
000184 2131 * 

& 000185 0068 2132 SMZOMD EQU 2'0068! SET OUTPUT MODE r 
000186 0068 2133 SMSOMO EQU SMSOMD+O0 
000187 0069 2134 SMS$OM1 EQU SMSOMD+1 

@ 000188 OO6A 2135 SMP$OM2 EQU SMSOMD4F2 @ 
000189 O06B 2136 SMS$OM3 EGU SMSOMD+3 

@ & 

@ @ 

@ @ 

@ € 
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& BTLD SOFTWARE ~SAF 1981/12/28 16:29:57 HRF ASSEMBLER OTSS L=6 HOST RESIDENT FACILITY PAGE 0006 @ 
000190 3000 /EJECT 
a 000191 3001 * 
000192 3002 *HARDWARE SPECIFIC INFORMATION 6 
000193 3003 * 
e@ 000194 3004 *START OF INTERRUPT VECTOR CIVOO) AND FAULT VECTOR CFVOO) 
ee 3005 * +1=1V01 -1=FVO1 sd 
300. kKkeeEK KK KKK K a, ‘ 
‘ 000197 ae ; IVECT EQU 2'0080 
ae 3008 *BIT MASK ASSIGNMENTS e 
3009 * 
e 000200 0001 5010 SMKB? EQU Z'O0001' 
000201 0002 3011 S$MKB6 EQU 2'0002' e 
000202 0004 3012 $MKB5 EQU 2'0004! 
) 000203 0008 3013 S$MKB4 EQU 2'0008' 
O00204 0010 3014 $MKB3 EQU 2'0010' e 
000205 0020 3015 $MKB2 EQU 2'0020' 
e 000206 0040 3016 $MKB1 EQU Z'0040! 
000207 0080 3017 $MKI EQU 2'0080' e 
000208 0100 3018 SMKR7 EQU 2'0100' 
e 000209 0200 3019 $MKRO EQU 2°'0200' 
000210 0400 3920 S$MKRS EQU Z'0400! ad 
000211 0800 3021 S$MKR4 EQU Z'O800' 
e 000212 1000 3022 $MKR3 EQU 2'1000! 
000213 29000 3023 SMKR2 EQU 2'2000' ad 
000214 4000 3024 SMKRI EQU 2Z'4000! 
@ asae 8000 3025 $MKM1 EQuU 2'8000' e 
3026 * 
000217 7000 3027 SMKR13 EGU SMKRI+SMKR2+$5MKR3 
© 000218 OFOO 3028 SMKRG7 EQU SMKR4+S5MKRStBMKRO+SMKR7 
000219 0070 3029 $MKB13 EQU SMKB1+EMKB2+3MKB3 e 
000220 OO0F 3030 SMKB47 EQU SMKB4+EMKES+3MK36+35MK B7 
e ae 9090 3031 BMKSTD EQU SMKMTFEMKI+3BMKR3S4+5MKB3 STANDARD REGISTERS TO SAVE € 
S032. * 
000223 3033 * 
€ 000224 3034 *IV SAVED REGISTERS OFFSET 
000225 3035 * e 
000226 FFFC 3036 S$IVLEV EQU Z'FFFC® LEVEL ASSOCIATED (SOFT) 
e 000227 FFFF 3037 SIVTSA EQU Z'FFFF® TSAP 
000228 0000 3038 BSIVDEV EGU O DEVICE ad 
000229 0001 3039 S$IVMSK EQU 1 MASK 
e 000230 0003 3040 SIVP EQU 3 
000231 0004 3041 $IVS EQU 4 ad 
000232 0005 3042 SIVREG EQU 5S START OF REGISTERS 
€ 000233 OO0B 3043 $I1V81 EQU 11 
000234 OO0C 3044 $IVI EQU 12 Ld 
000235 0013 3045 SIVR1 EQU 19 
r 000236 0014 3046 SIVM1 EQU 20 
000237 0018 3047 $IVT EQU 27 e 
& 
& 
@ 
e 
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000238 
000239 
000240 
000241 
000242 
000243 
000244 
000245 
000246 
000247 
000248 
000249 
000250 
000251 
000252 
000253 
QO00254 
000255 
000256 
000257 
000258 
000259 
000260 
000261 
000262 
000263 
000264 
000265 
000266 


000267. 


000268 
000269 
000270 
000271 
000272 
000273 


: 
: 
| 
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SOFTWARE 


0000 
0001 
0002 
0003 
0004 
O005 
0006 
0001 
0007 
0003 
0008 
0009 


6000 


803F 
4000 
8000 
0000 
0080 
8080 
0000 


80380 
8000 
0080 
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3048 
3049 


3050 


3051 
S032 
3053 
3054 
3055 
3056 
3057 
3058 
5059 
3060 
3061 
3062 
3063 
3064 
3065 


3066 


3067 
3068 


3069 


3070 
3071 
3072 
$073 
3074 
3075 
3076 
3077 
3078 
S09 
3080 
3931 
3082 
383 
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/EJECT 

& 

*TRAP SAVE AREA OFFSETS 

* 

$TSAL EQU O0 NEXT LINK 

S$TSAI EQU 1 INDICATOR REGISTER 
$TSAR3 EQU 2 XR3 


STSACM EQU 3 COMMAND 
STSAZ EQU 4 27-WORD 
STSAA EQU 5 ADDRESS 


S$TSAP EQU 6 P-REGISTER 
STSAPX EQU STSAP=S$TSAA 

$TSAB3 EQU 7 XB3 

STSATM EQU 8=-$TSAA 
STSAWD EQU 8 
STSALN EQU 9 

* 

* 

$SRGP3 EQU Z'6000' 
* 

* 

*LEVEL INSTRUCION WORDS 
* 

SLVEXI EQU Z2'8OU3F! 
SLVSCH EGU 2'4000' 
SLVEXE EQU 2'8000' 
S$LVENT EQU Z'O0000' 
S$LVDIS EQU Z'O0U80' 
$LVDSX EQU 2'8&080' 
SLVDIE EQU SLVENT+O 


*& 


*MODE REGISTER CONSTANTS 
* 

SMIJST EQU 2° 8080" 
SM1JIRS EQU 2° 8000' 
EM1NTS EQU Z'O080' 


DTSS L=6 HOST RESIDENT FACILITY PAGE 0007 


P-REG AS ADDRESSED BY TRAP ROUTINE 


TEMP WORD 


FOR NON*TRAP ROUTINES, THE TEMP WORD 
LENGTH OF TRAP SAVE AREA 


SREGISTER PRIORITY 3 


SUSPEND» SCAN» AND DISPATCH 

SCHEDULE INTERRUPT» DEFER 

SUSPENDs SCANs SCHEDULEs AND DISPATCH 
SCHEDULE» SCAN» DISPATCH CRETURN LATER) 
INHIBIT 

SUSPENDs INHIBIT 

CRASH LEVEL INSTRUCTIONS DATA 


SET JUMP TRACE 
RESET JUMP TRACE 
TEST JUMP TRACE 
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000274 
000275 
000276 
000277 
000278 
000279 
000280 
000281 
000282 
000283 
000284 
000285 
000286 
000287 
000288 
Q00289 
000290 
000291 
000292 
000293 
000294 
000295 


SOFTWARE 


0000 
0001 
O002 
0003 
0004 
0005 
0008 
OOOA 
0010 
0030 
0031 
0036 
0037 
0038 
O003C 
OO3E 


0078 
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3084 
3085 
3036 
3087 
3038 
3089 
3090 
3091 
3092 
39093 
3094 
50.95 
3096 
3509/7 
3098 
5299 
3100 
3101 
3102 
3103 
3104 
im ne 


J/EJECT 


re 


*ASSIGNED LEVELS 


* 

ERRLEV 
WOTLEV 
TSOVLYV 
HANGLYV 
RTCLEV 
WATLEV 
MCPLEV 
SX25LV 
CPLRLV 
NETLEV 
SBSCLYV 
CNSLEV 
SYCLEV 
MSGLEV 
DBGLEV 
DEVLEV 


* 


ONESEC 
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EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


CNSLEV+1 
SY CLEV#4 


60 
62 


120 


HRF ASSEMBLER 


DTSS L=6 HOST RESIDENT FACILITY 


POWER FAIL AND CRASH LEVEL 
WATCH DOG TIMER LEVEL 

TRAP SAVE AREA OVERFLOW AREA 
STARTUP AND HANG LEVEL 

REAL TIME CLOCK LEVEL 

WATCH COPY LEVEL 

ASYNC MLCP LINE CARD 

SYNC MLCP LINE CARD CUSING X25) 
COUPLER LEVELS (16417-18419) 


X25 NETWORK PACKET LEVEL 


SYNC MLCP LINE CARD CUSING BSC) 

CONSOLE HARDWARE LEVEL (BASE FOR SOFTWARE) 
SYSTEMS CONTROL LEVEL 
SYSTEMS MESSAGES LEVEL 

DEBUGGER PRIMARYs SECONDARY=+1 

LOWEST LEVEL FOR INVERTED SYNCHRONIZATION 


CLOCK IS 120 TIMES PER SECOND (.0083333) 
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000296 
000297 
000298 
000299 
000300 
000301 
000302 
000303 
000304 
000305 
000306 
000307 
000308 
000309 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000318 
000319 
000320 
000321 
Q00322 
000323 
000324 
000325 
000326 
000327 
000328 
000329 
000330 
000331 
000332 
000333 
000334 
000335 
000336 
000337 
000338 
000339 
000340 
Q00341 
000342 


SOFTWARE 


0002 
0003 
0004 
0005 


8000 
4000 
2000 


0000 
0001 
0002 
0003 


8000 
4000 
2000 
1000 
08900 
0400 
0200 
0100 
0080 
0040 


2408 
2010 
2118 
2158 
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4000 


4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 


JEJECT 
‘* 

* INPUT 
« 

*FIRST 
CURBUF 
CURLEN 
NSBERR 
MFLAGS 


& 
* 


16:29:57 HRF ASSEMBLER 


MESSAGE BUFFER DEFINITION 


BUFFER IN LINK WORD(O) 
EQU 2 

EQU CURBUF+1 
EQU CURLEN+1 
EQU NSBERR+1 


*INTERNAL TO MESSAGE FLAGS (MFLAGS) 


* 
LTLONG 
IFINAL 
TRPCLK 
« 
x 


EQU zZ2'8000' 
EQU 2*4000' 
EQU z2'2000° 


*MESSAGE STYLE BLOCK DEFINITION 


*® 

FRSTCK 
SCNDCK 
INPMAX 
STYFGS 


* 
* 


EGU OQ 

EQU FRSTCK+1 
EQU SCNDCK+1 
EQU INPMAX+1 


FIRST CLOCK TO SET 


*DEFINITIONS OF INPUT STYPE BITS 


* 


UNEDIT 
IGNLTL 
IGNNSB 
ESCQTL 
ESCDTA 
BKRDTA 
IGNENQ 
IGNLFD 
IGNDEL 
IGNULL 


EQU 2'8C00* 
EQU 2'4000° 
EQU Z*'2000' 
EQuU Z2'1G00' 
EGU Z2'Q800' 
EQ@uU 2'0400' 
EQU 2'O0200' 
EQU 2'0100' 
EQU Z'0080' 
EQU Z2'0040' 


DTSS L=6 HOST RESIDENT FACILITY PAGE 0009 


CURRENT BUFFER ADDRESS 


CURRENT LENGTH 
ERROR COUNTERS 
INTERNAL TO MESSAGE FLAGS 


LINE IS CURRENTLY TOO LONG 
FINAL DELIVERY 
FINAL DELIVERY TRAPS CLOCKING READ 


SECOND (SUBSEQUENT) CLOCK TO SET 
MAX LINE LENGTH 
INPUT STYLE BITS 


DATA SHOULD NOT BE EDITED 

LINE TOO LONGS ARE IGNORED (ELSE MSG ABORT) 
NO-STOP-BIT ERRORS ARE COUNTED AND FLAGGED 
ESCAPES DONE WITH NO MESSAGE 

ESCAPE IS DATA CELSE IT IS LINE CANCEL) 
BACKARROW IS DATA CELSE IT IS CHARACTER DELETE) 
ENQUIRY IS IGNORED CELSE MSG GENERATED) 

LINE FEEDS IGNORED CELSE TREATED AS DATA) 
RUBOUTS ARE IGNORED CELSE TREATED AS DATA) 
NULLS ARE IGNORED CELSE TREATED AS BREAK) 


kKakKKK Kee KKK KAM Ke hh KK Kk Kha K KKK Keke Ka Kh Kae KKK KE KEK KKK Kh kK K EK KKK KEK KKK KE Kae KKK KKK KKK 


& 
* 
* 


STANDARD DEVICE TYPE 


* 


ID'S * 
x 


kkk KKK KK KKK KER EEK KKK kkk kik tk ttt tik kt tk ttt kik tk tik 
COUPID 
DISKID 
ASYID 
BISID 


EQU Z2'2408" COUPLER DEVICE TYPE 

EQU Z2*2010" DIU 9101 DISKETTE 

EQU Z'2118" ASYNCHRONOUS CHANN"EL ID FOR MLCP 
EQU Z2*°2158" BISYNC CHANN"EL ID FOR MLCP 


@eeeeeeee@e%eee#¢8¢e@eeeee¢e @ 


ETRE APR sree POE es TT a RT srt cr OY es i I 6 A can Ss Pc ie ID ga 2 Ae PS I at a is Re ET Se PE PM EE RR a RG 0ST in TP AS SR ge Re SRR 


‘ 
| 


e 
e 
e 
@ 
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€ 
® 
e 
@ 
e 
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® 
° 
@ 
e 
¢ 
& 
® 
e 
e 
e 
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000343 
000344 
000345 
000346 
000347 
000348 
000349 
000350 
000351 
000352 
000353 
000354 
000355 
000356 
000357 
000358 
000359 
000360 
000361 
000362 
000363 
000364 
000365 
000366 
000367 
000368 
000369 
000370 
000371 
000372 
000373 
000374 
000375 
000376 
000377 
000378 
000379 
000380 
000381 
000382 
000383 
000384 
000385 


000386 


000387 
000388 
000389 
000390 
000391 


SOFTWARE 


0002 
0005 
0006 


0007 
0008 
O009 


OOOA 
0008 
OO00C 
OOO0D 
OOOE 
OOOF 
0010 
0011 


0072 
0013 
0014 
0015 
0016 
0017 
0019 
0018 
0024 
0026 
0028 
UO2C 
OO02E 


0030 


003C 


8000 
4000 
2000 


0800 
0400 
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5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5980 
5090 
5100 
5110 
3120 
37350 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
9230 
5240 
5250 
5260 


5270 


5280 
5290 
5300 
5310 
5320 
5330 
9340 
5350 
5360 
200 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 


16:29:57 HRF ASSEMBLER DTSS L=6 HOST RESIDENT FACILITY PAGE 0010 
/EJECT 

* 

*COUPLER CONTROL BLOCK DEFINITIONS 

* 

*LEAVE ROOM FOR QUEUEING PRIORITY AND LINK 

USERQ@ EQU 2 QUEUE OF USERS CONNECTED TO THIS COUPLER 

CPFLGS EQU USERQ+3 FLAGS CONTROLLING FLOW 

COUPST EGU CPFLGS#1 COUPLER I/0 STATE 

* 

PSBCLK EQU COUPST+1 
PSBCNT EQU PSBCLK#1 
DEADCT EQU PSBCNT#1 
* 

OMSGFB EQU DEADCT+1 
OMSGFP EQU OMSGFB+1 
OMSGLB EQU OMSGFP+1 
OMSGLP EGU OMSGLB+1 
IMSGBP EQU OMSGLP +1 
IMSGCM EQU IMSGBP+1 
IMSGLN EQU IMSGCM+1 
IMSGBK EQU IMSGLN+1 
* 

SPICMD EQU IMSGBK+1 
TAL66 EQU SPICMD+1 
TAL6 EQU TAL66+1 
1OWDS EQU TAL6#1 
L6BUFR EQU IOWDS+1 
H66DTA EQU LOBUFR+1 


PLEASE STAND BY CLOCK 
PLEASE STAND BY COUNTER 
DEAD CONNECTION COUNT 


FIRST BUFFER OF OUTPUT MESSAGES 
ASSOCIATED POINTER 

LAST BUFFER OF OUTPUT MESSAGES 
ASSOCIATED POINTER 

INPUT BUFFER PARSE POINTER 
INPUT COMMAND/LENGTH 

INPUT PORT (CLINE) 

STARTING BLOCK OF MESSAGE 


SPECIAL INTERRUPT COMMAND 
H66 REQUESTED I10 WORDS 
LEVELG ALLOWED I0 WORDS . 
~ACTUAL NUMBER OF WORDS IO*ED 
IO ADDRESS IN LEVEL6 
IO ADDRESS IN H1IS6600 


MBXLOC EQU H66DTA+t2 LOCATION OF MAILBOX IN HIS6600 

MBXPKG EQU MBXLOCt2 CONTENTS OF HIS6600 MAILBOX 

STSLOC EQU MBXPKG+9 LOCATION OF STATUS IN HIS6600 

STATUS EQU STSLOCt2 CONTENTS OF STATUS WRITTEN TO HIS6600 
CIVDEV EQU STATUS+5 LAST DEV WORD FROM INTERRUPT 


LSTSTS EQU CIVDEV+1 
SPISTS -EQU LS TS TS +2 


* 


DCWLST EGU SPISTS+2 


« 
CPLRBL EQU DCWLST+12 


* 


LAST HARDWARE STATUS READ 
SPURIOUS INTERRUPT STATUS 


DCW LIST FOR I0 OPERATIONS 


COUPLER BLOCK LENGTH 


* 


*DEFINITIONS OF COUPLER FLAGS 
* 

IOBUSY EQU 2*8000' 

BUFBSY EQU Z*'4000° 

SLROCK EQU zZ*2000' 

* 

RLOSET EQ@uU Z'0800' 

LORSET EGU 2'0400° 


BUSY DOING TERMINATE REQUIRED I/0 
BUFFER ACTIVE 
SLOW READS CLOCK RUNNING 


RELOAD AT EVERY REQUEST 
LEVEL6 HAS RESET ALL USERS 


— oe a se 


2 € 
e 
) BTLD SOFTWARE - 198° ! 
SOFTWARE | “SAF 1981/12/28 162293! IRE AS: Sphnant 
000392 couae Ve yer DTSS Le6 HOST RESIDENT FACILITY PAGE 0011 
meets 5490 /EJECT e 
@ 000393 5500 * 
000394 | 
: 000395 | ae "CONTROL INFORMATION FOR COUPLER e 
@ D0D396 0020 5530 LO6RDC EGU Z'0020' 
397 0030 ee AGREED CONSTANT FOR READ 
| 000398 oon S AGREED CONSTANT FOR WRITE ® 
@ 000399 0004 5560 MBXWDS EQ | 
900400 mane ee ae EQU 4 MBX IS 4 WORDS ON H66 SIDE 
ae ae a5 ee WDS EQU 2 STATUS IS 2 WORDS ON HO6 SIDE @ 
@ 000402 me eee EQU 2 L6 LENGTH OF I/O BUFFER 
000403 
| 000404 oo e 
¢ aes see *H1S6600 INTERRUPT CELLS 
| 000406 0003 5630 H66TRM 
000407 0007 7 EQU 3 INITIATE/TERMINATE @ 
@ 000408 oan alls 
| 000409 00c3 : 
| nOOLAG | as INTH6S EGU 2'0003"+$I10CH3 INTERRUPT HIS6600 e 
e 000411 
000412 Bea : 
| 0004613 se! ehisceteeinons L6é 10 INFORMATION @ 
©@ eae 0011 5720 COUPSL EQU CPLRLV+1 
| 000415 0012 es a ges ume ier raise SPECIAL INTERRUPT (FROM HIS6600) 
! 000416 0013 re ama ca ie TERMINATE INTERRUPT FOR L6 OPERATION 6 
: ® 000418 5750 * | SLAVE BUFFER PROCESSING LEVEL 
| ae a *DCW COMMANDS @ 
5 * 
©@ Ee 0038 5780 DWDSCI EQU 2'0038' 
: 21 0030 SS GOBu TE Ea Veasnk DISCONNECT AND INTERRUPT 
- ree OO3E 5800 DW66T6 EGU Z'CO3E' ieee anree e 
O03C 5810 DWCNE XFER H66 TO L6 
| ¢ NFG EG . 
: o00424 5820 uU z'003C" STORE CONFIGURATION STATUS 
0018 ’ 
_@ 000426 ate DCWLEN EGU 2¥6*2 LENGTH OF OUR DCW LISTS . 
: 000427 
; 000428 ee *DATA TRANSFER MODES e 
* 
@ 000429 0001 5870 AS ; 
7 BOGE 4 ae 5880 BCDMOD Eau Z2'0002' ab Mob ) 
e 000432 0014 ale eee Eat pC BINARY MODE 
a : 
000433 0021 5910 TLBMOD ai RG TRANSLITERATION MODE A 
: 000434 0041 Aaa asaya name eA TRANSLITERATION MODE B ® 
@ shale 0051 O80. TLCMON. FOU 780059 ASCII MODE WITH MSB TEST 
00436 0061 oe a TRANSLITERATION MODE A WITH MSB TEST 
a TRANSLITERATION MODE B WITH MSB TEST @ 
! ® 
@ 
® 
6 
@ ° 
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BTLod SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE OOD12 
000437 5950 /EJECT 
000438 5960 * 
000439 5970 *PENDING STATES FOR COUPLER SOFTWARE 
000440 5980 * 
000441 0000 5990 CIDLE EQU 0 IDLE 
000442 0001 6000 MBXRD EQU 1. MBX READING STATE 
000443 000¢ 6010 IOXFR EQU 2 IO TRANSFER STATE 
000444 0003 6020 STSWT EQU 3 STATUS WRITE STATE 
4 CONFIGURATION READ 


000445 0004 6030 CFGRD EQU 


e | e 


oN TR A OL RB SN CA A A, IN NS Ef: SO. OE: NE RR SP, A Sie ee mL, ST Nh A: E-PASS SM IN I RT DR PR TE RPG i ARR SN NA RT 
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000446 10000 /EJECT ** STAND ALONE LO DISKETTE WRITER ** 
000447 10010 «Keka aK KKK KKK KKK KKK Kaa Kak kkk kkk kkk kkk ) 
000448 10020 * THIS PROGRAM DOES THE FOLLOWING: 
000449 10030 * 1. SEND FAKE GOOD STATUS TO MAINFRAME UPON COUPLER T.I. 
000450 10040 * Ce WHEN $BOOT=0% START WRITING TO DISKETTE @ 
000451 10050 * Ae START AT LOCATION DEFINED BY ADJUST CKLUDGE) 
000452 10060 * Be. STOP AT ENDING’, wWHICH IS XLOC FROM BOUND UNIT BUILD 
000453 10070 * 34 HALT WHEN LAST TRACK WRITTEN @ 
000454 100380 * NOTE == DISKETTES FORMATTED THEN WRITTEN A TRACK AT A TIME 
000455 10090 «kee kaekek eke kkk kkk kk kkk kkk kk htt kk ke kkk kkk kkk kek kk ee KKK Kk kK kK 
000456 10100 * € 
000457 10110 * BOOTLOAD SOFTWARE AND LOW CORE DEFINITIONS 
000458 10120 * 
000459 1017130 * DEFINITIONS @ 
000460 0068 10140 HEADRS EQU 104 NUMBER OF FORMAT BYTES/TRACK ON DIUI1I01 
000461 Qd00 10150 TRKSIZ EQU 26*128 BYTES/TRACK 
000462 0000 10160 ZERO EQU O @ 
000463 0001 10170 ONE EQU 1 
000464 0002 10180 Two EQU 2 
O004&65 10190 * & 
000466 10200 * REGISTER DEFINTIONS 
000467 0020 10210 RANGE EQU $R1 NUMBER OF BYTES 
000468 0020 10220 CHANEL EQU BRS CHANNEL CWITH DIRECTION) @ 
000469 0020 10230 TRACK EQU BR? TRACK NUMBER 
000470 10240 * 
000471 0020 10250 TRNS EQU $B6 SUBROUTINE RETURN REGISTER @ 
000472 0020 10260 BASE EQU $87 CURRENT SEGMENT BEGINNING 
000473 10270 * 
000474 10280 * DISKETTE OPERATION CODES e@ 
000475 0009 10290 OSADOR EQU z2'O0009!° MEMORY ADDRESS SET 
000476 O000D 10300 OSRANG EQU z'coop' SET TRANSFER LENGTH IN BYTES 
000477 G011 10310 OSCWA EQU PY OOTY SET TRACK&HEAD € 
000478 0013 10320 O$CWB EQU Z* 0013" SET SECTOR NUMBER 
000479 0003 10330 OSINTC FQU Z'oUuo3* SET INTERRUPT CONTROL WORD 
000480 0007 10340 OSTASK EQU zZ*°Q007* OUTPUT TASK REG CREAD&WRITE)D @ 
000481 0001 10350 OSCNTL EQU z*0001! SET CONTROL WORD 
000482 10360 * 
000483 OO0C 10370 IBRANG EQU z'oooc'! READ RANGE REG @ 
000484 0010 10380 ISCWA EQU £*0010" READ TRACKSHEAD 
000485 0012 10390 ISCWB EQU Z'O0012' READ SECTOR NUMBER 
000486 0002 10400 ISINTC EQU z'O000e2' READ INTERRUPT CONTROL € 
000487 0026 10410 I$DVID EQU Z*'0026' GET DEVICE TYPE 
000488 0006 10420 ISTASK EQU z'oo06' READ TASK REG 
000489 0018 10630 ISSTAT EQU Z'0018° GET STATUS @ 
000490 10440 * 
000491 10450 * DEVICE ORDERS (DATA BUS COMMANDS) 
000492 0000 10460 ORCALS EQU z*ocao* RECALIBRATE & 
000493 0100 10470 OSEEKS EQU z'0100' SEEK 
000494 8000 10480 OFRMTS EQU z*8o000' FORMATTED WRITE 
000495 &100 10490 ORWS EQU z*8100° READ/WRITE DATA r 
000496 8500 10500 ODDRWS EQU Z*8500°* DELETED DATA READ/WRITE 
000497 8300 10510 ODRWS EQU z*8300' DIAGNOSTIC READ/WRITE 
@ 


 ] 
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000498 
000499 
000500 
000501 
000502 
000503 
000504 


SOFTWARE 


C000 


0100 
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10520 
10530 
10540 
10550 
10560 
10570 
10580 


OWRAPS 


* + &£ Ck FF 


EQU 


EQU 


HRF ASSEMBLER 


z*c000' 


Z*0100° 


DTSS L-6 HOST RESIDENT FACILITY 


WRAPAROUND READ/WRITE 


UPPER HALF ADJUSTER 


PAGE 0014 
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e BILD SOFTWARE ~SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L=-6 HOST RESIDENT FACILITY PAGE Q015 6 
000505 10590 /EJECT 

e 000506 10600 * @ 
000507 10610 * THIS IS THE AREA WHERE WE DEFINE ALL APPROPRIATE LOW CORE WORDS 
000508 10620 * 

& 000509 0000 00900 10630 RESV 1642'O000* OOxX TO OFX & 
000510 0010 O1A4 10640 S$TSALS DC <TSABKO FIRST TRAP BLOCK (10X) 
000511 0011 0000 10650 RESV 32'O0C0* 11X TO 13xX 

@ 000512 0014 0000 10660 SRTCLK RESV 32*0000' REAL TIME CLOCK LOCATIONS & 
000513 0017 O0OD0D 10670 SWDTMR DC Z*Q090' WATCH DOG TIMER 
000514 0018 0000 10680 RESV &/2Z'OQOO00' 18X THRU 1FX 

) 000515 0020 0000 10690 SINTBT RESV 472'0000' INTERRUPT SCHEDULE BITS ) 
000516 10700 * 
000517 10710 * TRAP VECTORS 

@ 000518 10720 * @ 
000519 0024 0000 10730 RESV 46/2"0000' UNUSED PORTION OF SAF TRAP VECTOR 
000520 Q0052. 91C1 10740 3$TV46 oC <HLTP46 TRAP VECTOR 46 

& 000521 0053 01C3 10750 $TV45 pe <HLTP4S TRAP VECTOR 45 @ 
000522 0054 0O01C5 10760 $TV44 DC <HLTP4SG TRAP VECTOR 44 
000523 0055 O1C7 10770 $TV43 DC <HLTP43 TRAP VECTOR 43 

@ 000524 0056 01C9 10780 $TV42 DC <HLTP42 TRAP VECTOR 42 ® 
000525 0057 O1CB 10790 $TV41 DC <HLTP41 TRAP VECTOR 41 
000526 0058 01CD 10800 $TV40 DC <HLTP40 TRAP VECTOR 40 

@ 000527 0059 OI1CF 10810 $TV39 DC <HLTP39 TRAP VECTOR 39 ) 
000528 Q05A_ 01D1 10820 $TV38 DC <HLTP38 TRAP VECTOR 38 
000529 0058 0103 10830 $TV37 DC <HLTP37 TRAP VECTOR 37 

e 000530 O05C 0105 10840 $TV36 DC <HLTP36 TRAP VECTOR 36 @ 
000531 O005D 0107 10850 $STVv35 DC <HLTP35 TRAP VECTOR 35 
000532 OOSE 01D9 10860 $TV34 DC <HLTP34 TRAP VECTOR 34 

@ 000533 O05F 0108 10870 $TV33 DC <HLTP33 TRAP VECTOR 33 e@ 
000534 0060 01DD 10880 $TVv32 DC <HLTP32 TRAP VECTOR 32 
000535 0061 O1DF 10890 $TV31 DC <HLTP31 TRAP VECTOR 31 

é 000536 O062 O1€1 10900 $TV30 DC <HLTP3O TRAP VECTOR 30 } 
000537 0063 O1&3 10910 $TV29 DC  <HLTP29 TRAP VECTOR 29 
000538 0064 O1E5 10920 $TV28 DC <HLTP28 TRAP VECTOR 28 

e 000539 0065 O1€E7 10930 S$TV27 DC <HLTP27 TRAP VECTOR 27 @ 
000540 0066 O1E9 10940 $TV26 DC <HLTP26 TRAP VECTOR 26 
000541 0067 O1€EB 10950 $TVv25 DC <HLTP25 TRAP VECTOR 25 

e 000542 0068 O1€D 10960 $TVv24 DC <HLTP24 TRAP VECTOR 24 e 
000543 0069 O1EF 10970 $Tv23 oc <HLTP23 TRAP VECTOR 23 
000544 OO6A O1F1 10980 S$TV22 DC <HLTP22 TRAP VECTOR 22 

) 000545 O006B O1F3 10990 $TV21 DC <HLTP21 TRAP VECTOR 21 & 
000546 O06C O1F5 11000 $TV20 DC <HLTP2O TRAP VECTOR 20 
000547 006d O1F7 11010 $TV19 DC <HLTP19 TRAP VECTOR 19 

@ 000548 O06E O1F9 11020 $TV18 DC <HLTP18 TRAP VECTOR 18 e 
000549 OQO6F G1FB 11030 $TV17 DC <HLTP17 TRAP VECTOR 17 
000550 0070 O1FD 11040 $TV16 oC <HLTP16 TRAP VECTOR 16 

@ 000551 0071 O1FF 11050 $TVv15 DC <HLTP15 TRAP VECTOR 15 @ 
000552 0072 0201 11060 S$TV14 DC <HLTP14 TRAP VECTOR 14 
000553 0073 0203 11070 S$TV13 DC <HLTP13 TRAP VECTOR 13 

& 000554 0074 0205 11080 $TVv12 DC <HLTP12 TRAP VECTOR 12 e 
000555 0075 0207 11090 $TV11 DC <HLTP11 TRAP VECTOR 11 
000556 0076 0209 17100 $TVv10 DC <HLTP10 TRAP VECTOR 10 
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000557 
000558 
000559 
000560 
000561 
000562 
000563 
000564 
000565 
000566 
000567 
000568 
000569 
000570 
000571 
000572 
000573 
000574 
000575 
000576 
000577 
000578 
000579 
000580 
000581 


0077 
0078 
0079 
OO7A 
007B 
O07C 
007D 
OO7E 
OO7F 


OC8&O0 
0081 
008e 
0083 
0084 
0085 
0092 
0093 
OOBF 


00CcO 


SOFTWARE 


0208 
020 
O20F 
0211 
0213 
0215 
0217 
0219 
O21F 


0172 
COOO0 
OSA 
0000 
0142 


O18A 


O12A 


0080 


0000 


0000 


0000 
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111710 
117120 
11730 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
71240 
11220 
11230 
11240 
Tee a0 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
FTS350 
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$TVOI dC <HLTPOD 
$TVOS DC <HLTPOS 
$TVO7 DC <HLTPO? 
$TVO6 DC <HLTPO6 
$TVO5 dC <HLTPOS 
$TVO4 DC <HLTPOS 
$TVO3 DC <HLTPO3 
$TVO2 DC <HLTPO2 
$TVO01 DC <HLTPO1 
* 

* 

* INTERRUPT VECTORS 


& 

SIVECT EQU $ 
DC <ERRIV 
DC 2° D000" 
dC <TSOVIV 
DC Z° 0000" 
DC <INITIV 
RESV 132Z*O000' 
DC <TERMIV 
RESV 44,2Z*0Q000' 
DC <IDLEIV 

& 
RESV 64-2'0000' 
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TRAP VECTOR O9 
TRAP VECTOR O08 
TRAP VECTOR O07 
TRAP VECTOR O06 
TRAP VECTOR O5 
TRAP VECTOR O4 
TRAP VECTOR 03 
TRAP VECTOR 02 
TRAP VECTOR O01 


80X START OF INTERRUPT VECTOR 

LOCATION OF POWER FAIL/CRASH VECTOR 
LOCATION OF WATCH DOG TIMER VECTOR 
LOCATION OF TRAP SAVE AREA OVERFLOW VECTOR 
HANG LEVEL 

INITIALIZATION THEN REAL TIME CLOCK 
INTERRUPT VECTORS 5 TO 17 

COUPLER TERMINATE INTERRUPT VECTOR 


LOCATION OF IV63 WHICH IS IDLE VECTOR 


UNUSED PORTION OF SAF INTERRUPT VECTOR 
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000582 11360 /EJECT 
000583 11370 * 
e 000584 11380 * e 
000585 11390 XLOC ENDING END OF CONGLOMERATION 
000586 11400 * 
ad 000587 11410 * e 
000588 11420 * BOOTLOAD SOFTWARE (STARTS AT 0100X) 
€ 000589 11430 * @ 
000590 11440 * REAL TIME CLOCK AND WATCH DOG TIMER ARE ASSUMED OFF AFTER BOOTLOAD 
: 000591 11450 * 
@ 000592 11460 * e 
000593 0100 8380 010A 11470 $800T JMP <GOBOOT START AND HANG AND TIME AND DATE 
000594 0102 > 0000 11480 DATIME RESV &8,2'QOGO0! ROOM FOR DATE & TIME 
e 000595 11490 * e 
000596 11500 GOBOOT RESV 0 
! 000597 O10A 8E70 4012 11510 LEV =SLVSCH#COUPTL INIT COUPLER LEVEL P=REG 
@ 000598 O010C 8E&70 803F 11520 LEV =$LVEXI START BOOTLOAD INTERRUPT HANDLING e 
| 000599 11530 SA RESV 0 
| 000600 010E€ o0N000 11540 HLT | 
6 000601 O10F UFFF T 1550 B ><$A WAIT @ 
| 000602 11560 * 
000603 11570 * FIND COUPLER ON BOOTLOAD CHANNEL 
| @ 000604 11580 * @ 
| 000605 1400 11590 ALTBT EQU 2°1400' ALTERNATE BOOTLOAD CHANNEL 
| 000606 11600 B00TIT RESV 0 
9 000607 0110 »b8&70 0400 11610 LDR CHANEL -=BTLDCH GET BOOTLOAD CHANNEL NUMBER @ 
000608 0112 odF40 0012 11620 STR CHANEL/CPLRCH SAVE IT FOR LATER 
000609 0114 £380 0227 11630 LNJ TRNS*<INITCP SEC UP COUPLER 
@ 000610 0116 €380 0331 11640 LNJ TRNSo<FINDSC FIND FIRST DIU9101 DISKETTE @ 
000611 11650 ****** LEAVE RS SACRED WITH CHANNEL NUMBER & OUTPUT DIRECTION 
000612 0118 OF8S 11660 B >BTWAIT WAIT FER SUMPIN' 
; 000613 11670 * 
: © 000614 11680 DEATH RESV 0 e 
| 000615 0119 8COGO U19F 11690 STS <SERROR SAVE CRASH LEVEL 
e 000616 0118 &8€&70 Q000 11700 LEV =$LVDIE CRASH g 
000617 11710 * 
000618 011D 8980 0100 11720 BIWAIT CM2 <$B00T WAIT FOR LOADER TO CHANGE THIS PAIR 
e 000619 O11F ODFE 11730 BNE >BIWAIT e 
000620 0120 8&70 0004 11740 LEV =$LVENT+RTCLEV ENTER INITIALIZATION LEVEL 
é 000621 11750 * 
| e 000622 0122 0000 11760 IDLE HLT IDLE LEVEL WILL COME HERE @ 
: 000623 0123 OFFF 11770 B >IDLE LOOP ON MANUAL RESTART 
000624 11780 * 
@ 000625 0124 g000 11790 DIF RESV 1,0 WORK CELL FOR RANGE CALCULATION e 
000626 0125 90000 11800 CPLRCH RESV 1,0 COUPLER CHANNEL STORAGE 
| ad 000627 0126 0000 11810 DISKCH RESV 1-0 DISKETTE CHANNEL NUMBER STORAGE e 
@ e 
e 
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e BILD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L~6 HOST RESIDENT FACILITY PAGE 0018 & 
000628 11820 /EJECT ** RESERVATION OF INTERRUPT SAVE AREAS ** 

@ 000629 11830 * e 
000630 11840 * BOOTLOAD IDLE LEVEL 
000631 11850 * 

@ 000632 FFFF 11860 SALL EQU Ye oe a ot SAVE ENTIRE ISM1 CONTEXT @ 
000633 O12A 11870 IDLEIV EQU $+ 3 LEVEL ROUTINE WHEN WE ARE IDLE 
000634 0127 0000 11880 RESV 3,2°0000' MMAsRFUsTSAP 

& 000635 012A O006 11890 OC Z*0000* DEV ¢ 
000636 0128 FFFF +7900 DC GALL ISmj 
000637 O12cC O000 11910 DC Z2*O000' 

& 000638 Q12d 0110 11920 DC <BOOTIT NORMAL WAIT ROUTINE FOR BOOTLOAD 6 
000639 QO12E 6000 11930 DC $SRGP3 PRIORITY LEVEL 
Q00640 O12F 0090 11940 RESV 1642°'OO0O0' ROOM FOR REGISTERS 

é 000641 11950 * @ 

000642 11960 * START OF EXEC INITIALIZATION LEVEL 
000643 11970 * 

@ 000644 0142 11980 INITIV EQU $+3 LEVEL ROUTINE WHEN WE START EXEC UP e 
000645 O13F 0000 11990 RESV 342'Q000' MMAsRFUsTSAP 
000646 0142 0000 12000 DC z‘'O000° DEV 

© 000647 0143 FFFF 12010 DC S$ALL IS @ 
000648 0144 0000 12020 OC z'0Q000' 
000649 0145 0267 12030 DC <DISKIT DISKETTE COPY ROUTINE 

e 000650 0146 6000 12040 DC ESRGP3 PRIORITY LEVEL @ 
000651 0147 Q000 12050 RESV 16,2'0OQ00' ROOM FOR REGISTERS 
000652 12060 * 

& 000653 12070 * TRAP OVERFLOW INTERRUPT & 
000654 12080 * f 
000655 O15A 12090 TSOVIV EQU $+ 3 LEVEL ROUTINE WHEN WE ARE OVER TRAPPED 

& 000656 0157 0000 12100 RESV 3/2'0O000' MMAsRFUsTSAP e 
000657 015A 0000 12110 DC z*ooo0o' DEV 
000658 0158 -FFFF 12120 DC BALL ISm1 

e 000659 015C O000 12130 DC zZ*0000' e 
000660 015d OQ1A0 12140 DC <TSAOVR TSA OVERFLOW HANDLER 
000661 O15€ 6000 12150 DC $SRGP3 PRIORITY LEVEL 

& 000662 OQ15F 0000 12160 RESV 16/2'0000° ROOM FOR REGISTERS e@ 
000663 12170 * 
O00664 12180 * POWER FAIL OR CRASH INTERRUPT 

eS 000665 12190 * @ 
000666 C0172 12200 ERRIV EQU $+3 LEVEL ROUTINE WHEN WE ARE IDLE 
QO00667 O16F 0000 12210 RESV 342'QQ00' MMAsRFUsTSAP 

e@ 000668 0172 0000 12220 DC z*oo00' DEV @ 
000669 0173 FFFF Ve250 DC SALL Ism1 
000670 0174 Q000 12240 DC zZ'oooo' 

& 000671 O775 0000 12250 DC riear O88) Oey PREG PLUGGED WHEN WE LEFT LEVELO  ] 
000672 0176 6000 12260 DC SSRGP3 PRIORITY LEVEL 
Q00673 Q177 0000 12270 RESV 162'OQ000" ROOM FOR EREGISTERS 

e 000674 Vee oO. & & 
000675 12290 * TERMINATE INTERRUPT VECTOR 
000676 12300 .* 

@ 000677 D18A 12310 TERMIV EQU $+3 START OF TRAP VECTOR & 
000678 0187 0000 12320 RESV 372*0O000' MMAsRFUsTSAP 
000679 018A 0000 12330 DC Z* 0000" 

e @ 
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000680 01868 FFFF 
000681 018C O000 
O00682 018d 0353 
000683 O18E 6000 
000684 O18F 0000 
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12340 
12350 
12360 
123570 
12380 


16:29:57 


DC 
DC 
DC 
De 
RESV 
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SALL 

Z* 0000" 
<TRMINT 
$SRGP3 
16,2'0O000' 


DTSS L=6 HOST RESIDENT FACILITY 
ISM 
PC SAVE LOC 


PRIORITY LEVEL 
ROOM FOR REGISTERS 
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BILD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L=6 HOST RESIDENT FACILITY PAGE D020 
000685 12390 /EJECT 
000686 1240G * 
000687 12410 * ERROR INFORMATION 
000688 12420 * 
000689 019F oO000 12430 SERROR DC z*0000! LEVEL WHERE CRASH OCCURRED 
000690 12440 * 
000691 12450 * 
000692 12460 * HANDLE TSA OVERFLOW 
000693 12470 * 
000694 O1A0 &C00 O19F 12480 TSAOVR STs <SERROR SAVE LEVEL WHERE CRASH OCCURRED 
000695 O1A2 8E&70 0000 12490 LEV =$LVDIE CRASH 


eeeee#eeeee%ee%6ee?ee?e8 0 @ 8 @ 


€ 


BILD 


000696 
000697 
000698 
000699 
000700 
000701 
000702 
000703 
VOO704 
000705 
000706 
000707 
000708 
000709 
000710 
000711 
000712 
000713 
000714 
000715 
000716 
000717 
000718 
000719 
000720 
000721 
000722 


000723 


000724 
000725 
000726 
000727 
000728 
000729 
000730 
000731 
000732 
000733 
000734 
000735 
000736 
000737 
000738 
000739 
000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 


O1AS4 
C1A5 


O1AD 
O1AE 


01B6 
0167 


O1BF 


01¢1 
O12 
01¢3 
01C4 
UTES 
01C6 
01C7 
01C8 
01C9 
O1CA 
01CB 
01CcC 
O1CD 
OCe 
CICF 
01D0 
C101 
O1Dd2 
0103 
0104 
0105 
O1D6 
0107 
01D8 
O1D9 
O1DA 
01D8 
C10C 
Q01DD 
O1DE 
G1DF 


O1E0 
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O1AD 


01B6 


UO00 


OF 80 


3C2E 
OF FD 
3C€ 2D 
OF FB 
3¢2C 
OF F9 
SC<e8 
OFF? 
3C2A 
OF F5 
3C 29 
OF F3 
3C€28 
GF F1 
SC 7 
OF EF 
3C 26 
OF ED 
$C 25 
OFEB 
3C24 
OFE9 
3C 23 
OFE? 
3C2e 
OFES 
3C€21 
OFES3 
3C 20 
OFE1 
3C 1F 
OFDF 


QOUO 


0000 


0090 


0220 
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12500 
12510 
12520 
12530 
12540 
12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
12660 
12670 
12680 
12690 
12700 
12710 
122 2u 
12730 
12740 
12750 
12760 
12770 
12780 
12790 
12800 
128.10 
12820 
12830 
12840 
12850 
12860 
12870 
12880 
12890 
12900 
12910 
12920 
12930 
12940 
12950 
12960 
12970 
12980 
12990 
13000 
130170 


TSABK1 


* 


TSABK2 
& 


* TRAP 
* 


HLTRPX 
. 

HLTP46 
HLTP45 
HLTP44 
HLTP43 
HLTP42 
HLTP41 
HLTP4O 
HLTP39 
HLTP38 
HLTP3?7 
HLTP36 
HLTP35 
HLTP34 
HLTP33 
HLTP32 


HLTP31 


16329357 


HRF ASSEMBLER 


HANDLING MECHANISMS 


SAVE AREAS 


DC 
RESV 


DC 
RESV 


DC 
RESV 


HANDLERS 


<TSABK 1 


STSALN=1-2*O0U0" 


<TSABKe 


STSALN-1,2'OOO0U' 


Z*Q000* 


S$TSALN=1-2'OO0O' 


<HLTRAP 


ER3eZ2'°2E' 
>HLTRPX 
$R3,Z'2D0' 
>HLTRPX 
$R3eZ2'2C! 
>HL TRPX 
$R3e72'2B' 
>HLTRPX 
$R3eZ2'°2A' 
>HLTRPX 
$R3,2'29! 
>HLTRPX 
$R3-2'°28' 
>HLTRPX 
ER3e2°27' 
>HLTRPX 
$R3e2'26' 
>HLTRPX 
$R3e72'25! 
PHL TRPX 
$R3e2'24' 
>HLTRP X 
$R3eZ2'23' 
>HLTRPX 
$R3-2'22' 
>HLTRPX 
$R3e2'21' 
>HLTRPX 
$R3-2'20' 


>HLTRPX 


PHLTRPX 


DTSS L=6 HOST RESIDENT FACILITY 


LINK TO SECOND 


ROOM FOR REMAINDER 


LINK TO THIRD 


ROOM FOR REMAINDER 


ONLY HAVE 3 ACTIVE 
ROOM FOR REMAINDER 


OF TSA 


OF TSA 


TSA? sS 
OF TSA 


ALLOWS SHORT ADDRESS 


LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
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NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 
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000748 
000749 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 
000758 
000759 
000760 
000761 
000762 
000763 
000764 
000765 
000766 
000767 
000768 
000769 
000770 
000771 
000772 
000773 
000774 
000775 
000776 
000777 
000778 
000779 
000780 
000781 
000782 
000783 
000784 
000785 
000786 
000787 
000788 
000789 
000790 
000791 
DOO? 92 
000793 
000794 
000795 
000796 
000797 
000798 
000799 


O1E1 
O1€&2 
O1E3 
O1E4 
O1ES 
O1E6 
O1E7 
O1E8 
O1E9 
QOTEA 
O1EB 
Q1EC 
O1ED 
OEE 
Q1EF 
O1FO 
O1F 1 
OF 
O1F3 
O1F4 
Q1F 5 
O1F6 
O1F7 
O1F8 
O1F9 
Q1FA 
O1FB 
OFC 
O1FD 
OTFE 
OFF 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
O20A 


0208 


O20C 
0200 
O20E 
O20F 
0210 
0211 
eee 
0213 
0214 


SOFTWARE ~SAF 


SCTE 
OF DD 
SC TD 
OF OB 
3C1C 
OF D9 
3C18 
OF D7 
3C1A 
OFDS5 
S079 
OF D3 
3€18 
OF Be 
ES oa BF 
OF BO 
5C 16 
OF AE 
3C€15 
OFAC 
3C14 
OF AA 
SE13 
OFA8 
SE Te 
OFA6 
3€11 
OFA4 
3C10 
OF A2 
3C OF 
OF AD 
3COE 
OF GSE 
3C OD 
GF9C 
3c 0c 
OFQA 
3C 0B 
OF 98 
3COA 
OF96 
3cQ9 
OFIG 
3c 08 
OF 92 
3¢c0?7 
OF90 
3Cc06 
OF 8E 
5005 
OF &C 
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13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13.150 
13160 
1370 
13180 
13190 
13200 
Lee +0 
13220 
13230 
13240 
13250 
13260 
13270 
13280 
13290 
13300 
13310 
13320 
£53:30 
13340 
13350 
13360 
13370 
13380 
13390 
13400 
13410 
13420 
13430 
13440 
13450 
13460 
13470 
13480 
13490 
13500 
ke ae Ed: 
13520 
13530 


HLTP30 
HLTP29 
HLTP28 
HLTP27 
HLTP 26 
HLTP25 
HLTP24 
HLTP23 
HLTP22 
HLTP21 
HLTP20 
HLTP19 
HLTP LS 
HLTP17 
HLTP16 
HLTP15 
HLTP14 
HLTP13 
HLTP12 
HLTP11 
HLTP10 
HLTPOO 
HLTPOB8 
HLTPO? 
HLTPO6 


HLTPOS 


16:29:57 


LDV 
B 
LDV 
B 
LDV 
B 
LOV 
B 
LDV 
6 
LDV 
B 
LOV 
B 
LOV 
B 
LDV 
B 
LOV 
B 
LOV 
B 
LDV 
B 
LDV 
B 
LOV 
B 
LOV 
B 
LDV 
bs 
LDV 
3 
LDV 
b 
LOV 
B 
LDV 
6 
LDV 
B 
LDV 
3) 
LDV 
B 
LDV 
B 
LDV 
B 
LDV 
B 
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S$R3eZ°1E" 
PHLTRPX 
$R3-2'°1D" 
DPHLTRPX 
$R5-2'°1C' 
>HLTRPX 
$R3,2'18B' 
>HLTRPX 
$kR3-Z2'1A* 
>HLTRPX 
$R3472'°19° 
>HLTRPX 
$R3,2'°18' 
>HLTRAP 
SRA¢ 2° 19 7 
>HLTRAP 
$R3eZ2'16' 
>HL TRAP 
$R32'15° 
>HL TRAP 
$R3-72'14' 
>HLTRAP 
$R372'13' 
>HLTRAP 
$R3-Z'12' 
>HLTRAP 
SRS¢g 011? 
D>HLTRAP 
$R3e2'°10' 
>HL TRAP 
$€R3-Z2'OF' 
>HLTRAP 
$R3-Z2'O0E' 
>HL TRAP 
$R3,Z2'OD' 
P>HLTRAP 
$R3-2'0C! 
>HL TRAP 
$R3,72'OB! 
>HLTRAP 
$R3-Z'°OA' 
PHL TRAP 
$R3e2'09' 
>HLTRAP 
$R3/2'Q8' 
>HLTRAP 
$R3-2'O7' 
P>HLTRAP 
$R3-Z2'O6' 
DPHLTRAP 
$R3472'O5* 
>HLTRAP 
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LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
LOAD TRAP 
CRASH 
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NUMBER 
NUMBER 
NUMBER 
NUMBER 
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NUMBER 
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NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
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NUMBER 
NUMBER 
NUMBER 
NUMBER 


NUMBER 
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BTLD 


000800 
000801 
000802 
000803 
000804 
000805 
000806 
000807 
000808 
000809 
000810 
000811 
000812 
000813 
000814 
Q00815 


0215 
0216 
0217 
0218 
0219 
O21A 
O21¢ 
O21E 
O21F 


0220 
0222 


Gees 
G225 


SOFTWARE 


3C04 


OFSA 


3¢03 


OF 88 
3C02 
9070 
9070 
OF 82 
3c 01 


8388 


G223 


8C 00 
BE 70 


0080 
8000 


O19F 
OOVU0 
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13540 
15350 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 
13640 
13650 
13660 
13670 
13680 
13690 


HLTPOS 


HLTPO3 


HLTPO2 


HLTPO1 


* 


HL TRAP 


* 


TRAPER 


*« 


LRPOTE 


16329257 


LDV 
B 


LDV 
B 

LDV 
M™M 
MTM 
B 

LDV 


JMP 


DC 


STS 
LEV 


HRF ASSEMBLER 


$R3e2°04' 


>HLTRAP 


$R3-2'°'0O3' 
>HLTRAP 
$R34Z2'O2' 
$M1,=5M15NTS 
EM1,=$M15RS 
DHL TRAP 
$R3,2'°O1' 


*<TRAPER 
<TRPDIE 


<SERROR 


=ZLVOIE 


DTSS L=6 HOST RESIDENT FACILITY 


LOAD TRAP NUMBER 
CRASH 

LOAD TRAP NUMBER 
CRASH 

LOAD TRAP NUMBER 
TEST JUMP BIT FIRST 
THEN RESET IT 

CRASH 

LOAD TRAP NUMBER 


CALL TRAP SUBROUTINE 
DIE IF WE WERENT EXPECTING FAULT 


SAVE LEVEL WHERE CRASH OCCURRED 
CRASH 
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000816 
000817 
000818 
000819 
000820 
000821 
000822 
000823 
000824 
000825 
000826 
000827 
000828 
000829 
000830 
000831 
000832 
000833 
000834 


000835 
000836 
000837 
000838 
000839 
000840 
000841 
000842 
000843 
000844 
000845 


000846 
000847 
000848 
000849 
000850 
000851 


000852 
000853 
000854 
000855 
000856 
000857 


000858 
000859 
000860 
000861 


000862 


0227 
G229 
O022B 


O22D 
O22eeE 
O22F 
0230 


0231 


0232 
0234 


0236 
UZS7 
0238 
O23A 


0238 
O23C 
O23D 
G23F 
0240 


0241 
0243 
0244 
0245 
0246 


0247 
0248 
0249 
0248 


SOFTWARE 


D870 
FBCO 
FECQO 


6C€26 
E455 
8057 
0056 


O7 A6 


F970 
0981 


6C 41 
E455 
8070 
0056 


6€043 
E455 
8070 
0056 
O7 FB 


F870 
6047 
E455 
8057 
0056 


651 
E455 
8070 
0056 


4000 
QOO00 
0000 


0080 
00CcO 


0400 
0106 
FE4S 


2408 
0022 


8000 


8000 


0012 


5FOO 


0091 
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13700 
13710 
13720 
13730 
13740 
15730) 
13760 
13770 
13780 
13790 
13800 
13810 
13820 
13830 
13840 
13850 
13860 
13870 
138380 


13890 
13900 
13910 
13920 
13930 
13940 
13950 
13960 
13970 
13980 
13990 


14000 
14010 
14020 
14030 
14040 
14050 


14960 
14070 
14080 
14090 
14100 
14110 


14120 
14130 
14140 
14150 


14160 


JEJECT 
BTINH 


* 


PLES 


RFU 
NORMAL 
as Boe 
* 
INIJCP 
* 

k 


* 


CPLOOP 


QLT 


DTSS L-6 HOST RESIDENT FACILITY PAGE 0024 


BOOT INHIBIT BIT 


INTERNAL TEST MODE 

NOT USED 

NORMAL MODE, OPERATIONAL TO L66 
EXTERNAL TEST MODE 


ROUTINE TO INITIAL L6 COUPLER 


TO KEEP ALL COUPLERS FROM BUGGING US WITH A BOOT 


START AT FIRST CHANNEL 
SET UP TO SWAP TRAP VECTOR & NULLIFY 
DON'T LET NONEXISTANT RESOURCE BUG US 


GET DEVICE ID 

USE CURRENT CHANNEL 
GET THE ID 

NUTTIN® THERE 


IS IT A COUPLER? 
NOPEs DON'T BOTHER 


QLT BIT FOR OUTPUT CONTROL 
SET OUTPUT CONTROL 


INSERT CHANNEL NUMBER 
INITIALIZE COUPLER 


SET INTERRUPT CONTROL 
(TERMINATE INTERRUPT LEVEL) 


WAIT FOR COUPLER INITIALIZATION 


BR7ezHGOTRM*Z*'OS8OO'+HGOSPC*Z'O100'+BTINH 


INHIBIT ANOTHER BOOTLOAD CMD 


SET IT IN TASK REG 


WRITE CONFIG REG A 


16:29:57 HRF ASSEMBLER 
EQU Z*46000' 
CONFIG A MODE BITS 
EQU Z'0000* 
EQU z*oooo* 
EQU 2‘ 0080° 
EQU z*ooco! 
RESV 0 

ROUTINE 

LDR CHANEL/=BTLOCH 
LAB EB7+RTTRAP 
SWB $B/7rETVI5 
RESV O 
LDV ER6-I1SO0VIO 
OR SR6e=CHANEL 
10 EP$R7FZ=5R6 
BIOF >CPNEXT 
CMR $R?7,=COUPID 
BNE CPNEXT 
EQU 2*'8000'* 
LDV S$REeSO0TCTLF#SIOCHI 
OR BR6e=CHANEL 
10 =SQLT,/-=$R6 
RESV 0 
LOV $RE6eFICTLO+SICCH 
OR PR6Ee=CHANEL 
10 =CPUOCH*Z'OU4O'+COUPTLA-=£R6 
BIOF >~ $C 
LDR 
LDV SRE-ETSKRO+EI0CHI 
OR SRO6e=CHANEL 
10 ZELR7,=SR6 
LOV SRO6e5CFGAQ+SI10CH1 
OR SR6e= CHANEL 
10 =COUPSL+NORMAL »-=$RO6 


"ENSURE TEST DATA XFER* OK 


eeee 8 @8e@ee8e@ehmlUmemhlUMmUCUCUcOUCOUCUCUCOmhUC UC PC(ChhUrhOmhlUhOHmhlUhFOlhUhF 


TEE Eero ETT UE PY PE PRU: PET PR HEI I NR: DS ANON A: ST TT 


BTLD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L*6 HOST RESIDENT FACILITY PAGE 0025 
000863 O24C »d970 0400 14170 CMR CHANEL/=BTLDCH IF BOOTLOAD COUPLER 
000864 O024E 0981 0008 14180 BNE CPNEXT NOT 
000865 14190 * BOOTLOAD COUPLER» GET STATUS INFO FOR L66 MBX 
000866 0250 6C49 14200 LDV $R6-=$10LD0 
000867 0251 £455 14210 OR $R6Z=CHANEL DO GET THE ADDRESS 
000868 0252 81Cc0 0157 14220 IOLD DCWr=$R6e=DCWLEN 
0254 0056 2 
0255 0070 0018 
000869 14230 « 
000870 14240 CPNEXT RESV ) 
000871 0257 DdDA7O 0080 14250 ADD CHANEL »=NEXTCH TRY NEXT GUY IN LINE 
000872 0259 8905 14260 CMZ =CHANEL KEEP FROM WRAPPING ON ALL CHANNELS 
000873 O25A 09D3 14270 BNE >CPLOOP TRY AGAIN 
000874 14280 * DONE 
000875 0258 FECO FE15 14290 Swb $B? eSTV15 PUT BACK MISSING RESOURCE TRAP 
000876 025d 8386 14300 JMP TRNS RETURN 


A RO pI Rg PE IME SSO SA, RR A ASS NO AARC A A NT So PNR AE = A SOM AO TAP A «BS TA ET PPT TR ARS A SI A AL P<  =  FP e N I A o  g  SA P  PtT = mrOPTP ATa1 ARRE P ON PS LT  R R Y  R  A AP  A  L 
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BTLD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L-6 HOST RESIDENT FACILITY PAGE 0026 
000877 14310 /EJECT ** ROUTINE TO ALLOW COUPLER BOOTS AGAIN ** 
000878 14320 RSETCP RESV 0 ALLOW MORE BOOTS 
000879 14330 * 
000880 O25E D800 0125 14340 LOR CHANEL /<CPLRCH ASSUME COUPLER VERIFIED IN INITCP 
000881 14350 * 
000882 0260 F870 1F00 14360 LOR SR7F=HO6TRM*Z PO800* +H66SPC*2°0100! 
000883 0262 6C47 14370 LDV SROeSETSKRO+SIOCH1 ALLOW MORE BOOTLOAD CMD'S 
000884 0263 £455 14380 OR SROe=CHANEL 
000885 0264 8057 14390 IU =$R7e=$RE 
0265 0056 
000886 14400 * 
000887? 0266 8386 14410 JMP TRNS RETURN 


e 


Fe ATT CR. Ren RTE AE RA AEN SAO A I A RS A NOE RU A RY NT PRS EER ORSON PREZ A, A 2 SA PA A 9 NE: A SI: AY AN AO AI FS | AR I A 2 A 


Se See Ns * SR ee 


€ € 

e ® 

e ‘BILD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L=6 HOST RESIDENT FACILITY PAGE 0027 ) 
000888 14420 /EJECT x** MAIN LEVEL PROCESSING OF DISKETTE WRITING ** 

e 000889 T4430 RRR RK KK Ka KKK KKK KKK aK KK KEKE KE KKK kK kk e 
000890 14440 * THE FOLLOWING STEPS OCCUR : 
000891 14450 * 1. SET ENDING LOCATION, STARTING LOCATION» TRACK ZEROs & RANGE 

@ 000892 14660 * 2. LOOP UNTIL FINAL LOCATION TO WRITE IS REACHED 6 
000893 14470 * Aw FORMAT CURRENT TRACK 
000894 14480 * Be. WRITE SEGMENT TO DISKETTE 

* 000895 14490 * C. UPDATE BASEs UPDATE TRACK NUMBER IN FORMAT DATA LIST @ 
000896 14500 * 3. HALT 
O00897 14510 kek eee Kk kkk 

S$ 000898 14520 MARK RESV 0 MARK THIS POINT e 
000899 14530 * MAIN BODY OF WORK FOR DISKETTE COPY 
000900 0580 14540 ADJUST EQU 270380" BOUND UNIT OVERLAY OFFSET 

@ 000901 0267 14550 ORG MARK RESET PC ® 
000902 14560 * 
000903 14570 DISKIT RESV O 

& 000904 14580 * FIRST MOVE IN THE DATE & TIME FOR DUMP REFERENCE & 
000905 14590 * 
000906 14600 XLOC DATE-~TIME 
000907 0008 14610 EIGHT EQU & 

ad 000908 14620 * e 
000909 G267 9B80 OO00 X 14630 LAB $B1<DATE SET TARGET START 

S 000910 0269 9BC1 0480 14640 LAB $B1-8B1.ADJUST-Z'0O0100" “"ADUST» IN OTHER OVERLAY & 
000911 Q268 8870 0000 14650 LDR $R3,=ZERO START AT THE BEGINNING 
000912 14660 * 

) 000913 14670 DATMOV RESV 0 & 
000914 G26D C830 0102 14680 LDR SR4,<DATIMELERS GET ONE WORD 
000915 O26F CF7D 14690 STR $R4,-3$B1,+$R3 MOVE IT & SET TO NEXT 

) 000916 0270 3008 14700 CMV $R3/EIGHT DONE? e 
000917 0271 O9FC 14710 BNE >DATMOV NOPE 
000918 14720 * 

@ QO00919 0272 D800 0126 14730 LDR CHANEL s/<DISKCH GET DISKETTE CHANNEL NUMBER @ 
000920 O274 9C¢C9O OOSE 14740 LD’ $B1/ENDO GET ENDING POINT 
000921 0276 9B8C1 0580 14750 LAB $61/$B1.ADJUST ADJUST A BIT FOR 

e 000922 0278 9FCO OO3SA 14760 STB $B1/ENDO BOUND UNIT KLUDGE ) 
000923 14770 * 
000924 O27A B870 0580 14780 LDR $RSe=ADJUST SET STARTING POINT 

& 000925 O27C 3001 14790 SOL $R3,0NE MAKE IT A BYTE OFFSET @ 
000926 O27D BFOO 0124 14800 STR $R3-<01F PUSH THE OFFSET INTO BASE 
~000927 C27F FC80 0124 14810 LOB BASE s<DIF BYTE OFFSET BASE 
000928 14820 * 

e 000929 14830 * e 
000930 0281 B840 0031 14840 LDR BR3,ENDO CONVERT TO BYTE OFFSET 

e 000931 0283 3001 14850 SOL $R3,0NE FOR END POINT @ 
000932 0284 BF40 OOZ2E 14860 STR $R3-/ ENDO 
000933 14870 * 

e 000934 0286 9870 ODVO 14880 LDR RANGEs=TRKSIZ WRITE FULL =TRACKS e 
000935 14890 * 
000936 0288 8840 0039 14900 LDR $R3eDATPTR CONVERT FORMAT INFO PTR 

@ 000937 O28A 3001 14910 SOL $R3,0NE TO MAKE IT A BYTE ADDRESS e 
000938 O28B8B BF40 0036 14920 STR $R3/DATPTR 
000939 14930 * 

e e 
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BILD 


000940 
000941 
O00942 
000943 
000944 
000945 
000946 
000947 
000948 
000949 
000950 
0009.51 
000952 
000953 
000954 
000955 
000956 
000957 
000958 
000959 
000960 
000961 
000962 
000963 
000964 
000965 
000966 
000967 
000968 
000969 
000970 
000971 
000972 
000973 
000974 
000975 


O28D 


O28E 


O28F 
0291 


D292 
0294 
0296 
0297 
0298 
O29A 


Q29C 
O29D 


O29E 
O29F 
O2A1 


O2Ae 
O2A4 
O2A6 


O2A8 
O2AA 


O2AC 
C2AE 
0280 
0261 


C2B3 


SOFTWARE 


7C00 


9B97 
9D 80 
0300 


ESCQ 
E3c0 
7E01 
FRO? 
BB8&O0 
AB 80 


ADD3 
0971 


FI Fe 
ABCe 
OF FB 


FF 80 
9800 
9200 


E380 
E380 


E380 
8E 70 
9000 
8380 


0000 


O2B3 


0021 
GO068 


O2FD 
O2C9 


0001 


0124 
02B3 
0124 


02B4 
O2FD 


G25E 
80 3F 


0179 
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14940 
14950 
14960 
14970 
14980 
14990 
15000 
15010 
15020 
15030 
15040 
15050 
15060 
75070 


15080 


15090 
15100 
13910 
73120 
15130 
15140 
15150 
15160 
45170 
15180 
1OT99 
15200 
Ve.) 
15220 
Tc. 50 
15240 
15250 
15260 
15270 
15280 
15290 


* 


WRITLP 


ENDO 


LDV 


RESV 
LAB 
CMB 
BG 


HRF ASSEMBLER 


TRACKs ZERO 


0 
$B1/BASE.2RANGE 
$B1s<ENDO 

>+SA 


TRNSsFORMAT 
TRNS/AWRITE 
TRACKsONE 
BASEsBASE.*RANGE 
$B3/<TRKEND 
$B2e<TRKLBL 


O 
$562,=$B3 
>WRITLP 


TRACKs +$B2 
$B2,582.0NE 
>=$C 


om 
BASE,/<DIF 
RANGEs<ENDO 
RANGEs<DIF 


TRNS# <FORMAT 
TRNS/-<WRITE 


TRNS»#<RSETCP 
=SLVEXI 


<DEATH 


<ENDING 


DTSS L=6 HOST RESIDENT FACILITY 


WRITE TRACKS IN ORDER 


FIND CURRENT ENDING POINT 
LAST PART 
YEP, RECOMPUTE RANGE VALUE 


FORMAT THE TRACK FIRST 

WRITE THE SEGMENT TO THE TRACK 
GO TO NEXT TRACK 

RESET BASE TO NEXT SEGMENT 
MARK END OF FORMAT INFO 

SET START OF INFO 


DONE? 
YEP» GO FORMAT THIS TRACK 


RESET TRACK NUMBER IN ID 
JUMP Be 2 SPOTS INSTEAD OF ONE 
SEE IF MORE INFO 


GET THE CURRENT BASE 


FIND THE END POINT 
FIND RESTOUE AMOUNT 


FORMAT CFULL TRACK) 
WRITE RESIDUE OF DATA 


ALLOW REBOOT 


SUSPEND 
WE SHOULDN'T RETURN 


LET HRF LINKER TELL US WHERE TO STOP 


PAGE 0028 
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8 


000976 
000977 
000978 
000979 
000980 
000981 
000982 
000983 
000984 
000985 


000986. 


000987 
000988 
000939 
000990 
000991 
000992 
000993 
000994 
000995 
QVO0996 
000997 
000998 
000999 
001000 
001001 
001002 
001003 
001004 
001005 
001006 
001007 
001008 
001009 
0019010 
0010171 
001012 
001013 


001014 
001015 
001016 
001017 
001018 
001019 


001020 


O2B4 
O2B6 


O267 
O2B9 


O2BB 
O2BD 


O2BE 
O2BF 
O2c0 
O2C1 


O2C2 
02C3 
O2C4 
O2c5 
O2C6 
O2C7 
O2C8 


Q2Cc9 
O2CcA 
O2CB 
Oecc 
O2CD 
O2CE 
O2CcF 
0200 
0201 
0202 
O2D3 
O2D4 
0205 
0206 
0207 


SOFTWARE 


F7CO OOOF 
S007 


AB80 O2BE 
BB80O O2Ce 


D3CO 0058 
8386 


O90D 
1107 
1807 
1800 


O2C9 
0068 
0000 
0100 
0000 
8000 
0000 
0007 


0000 
0000 
0000 
0100 
0000 
0200 
0000 
0300 
0000 
0400 
0000 
0500 
0000 
0600 
0000 
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15300 
15310 
15320 
15330 
15340 
15350 
15360 
1500 
15380 
15390 
15400 
15410 
15420 
15430 
15440 
15450 
15460 
15470 
15480 
15490 
15500 
L510 
15520 
15530 
15540 
155-20 
15560 
15570 
15580 
15590 
15600 
15610 
G20 
15630 
15640 
15650 
15660 
15670 


15680 
15690 
15700 
15710 
15720 
15730 


15740 


/EJECT 


162293257 


HRF ASSEMBLER 


DTSS L=6 HOST RESIDENT FACILITY 


** ROUTINE CALLED TO FORMAT A FULL TRACK ** 


wR RRR KKK KKK RK KKK KKM KKKK KAKA KKAKHAA KKK KKK KKK KK KKK KE KKK KKK 


* SIMPLE ROUTINE TO SET UP COMMAND AND DATA LIST POINTERS 


‘ FOR THE DOIO ROUTINE SUCH THAT 26 SECTORS ARE FORMATTED 
« TO THE DISKETTE 
wwe Kwa aaa KKK KKK KKK KEK KKM KEK KKK aKa Kh Kea Kha KK Keke Ke KK Keak Ke KA KK Kaka KKK KK 
FORMAT RESV 0 
* ON INPUT: 
. R7=TRACK NUMBER 
* 
STH $R7eTRKNO STORE TRACK NUMBER FOR I/O 
LDV $R3-/DATLNG SET CMD STRING LENGTH FOR DOIO 
* 
LAB $B2/<CMDLST SET COMMAND LIST PTR 
LAB $B3-<DATLST SET DATA LIST PTR FOR DOIO 
*« 
LNJ $B5,D010 GO TO IT 
JMP TRNS RETURN 
* 
* 
CMDLST RESV 0 
DC OSADDR*U+0$SRANG SET MEM ADDR» LENGTH 
DC OSCWA*UtO$TASK SET & SEEK 
DC ISSTAT*UFOSTASK STATUS & FORMAT WRITE 
DC ISSTAT*U 
* 
DATLST RESV @ 
DATPTR DC <TRKLBL POINTER TO FORMAT DATA 
DC HEADRS FULL TRACK FORMATTING 
TRKNO DC 0 TRACK NUMBER TO SEEK 
one OSEEK$ SEEK ORDER 
dC 0 STATUS SHTICK 
DC OFRMTS FORMATTED WRITE 
DC U STATUS SHTICK 
DATLNG  €QU $=DATLST MARK LENGTH 
x 
TRKLBL RESV 0 TRACK SECTOR ID'S 
DC Z*0000',z'O0U00' SECTOR O 
DC 7* O0CU tee O106" SECTOR 1 
DC Z2*'0000',zZ'0O200' SECTOR 2 
DC z*0000',2'0300! SECTOR 3 
DC Z*0000'-2'0400! SECTOR 4 
DC zZ*0000'.z'0500° SECTOR 5 
Dc Z*0000'»2' 0600" SECTOR 6 
DC z*0000'-z'0700" SECTOR 7 
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Sg ee es CR Be eee 


eeeeeeeee%eeeeseeeesee#ee#eeeeee @ 


@ 


BTLD 


001021 
001022 
001023 
001024 
001025 
001026 
001027 
001028 
001029 
001030 
001031 
001032 
001033 
001034 
001035 
001036 
001037 
001038 


001039 


0208 
0209 
O2DA 
O2DB 
O2dC 
O2DD 


UcdE: 


O2DF 
O2E0 
O2E1 
O2E2 
O2E3 
O2E4 
O2E5 
O2E6 
O2E?7 
O2E8 
O2E9 
O2EA 
O2EB 
O2EC 
O2ED 
O2EE 
O2EF 
O2F0 
O2F1 
O2F2 
O2F3 
O2F4 
O2F5 
O2F6 
O2EYL 
C2F8 
Derg 
O2FA 
C2FB 
O2FC 


SOFTWARE 


0700 
0000 
0800 
0000 
0900 
0000 
OAQO 
0000 
OB OO 
0000 
Oc 00 
0000 
Od 00 
0000 
OE O00 
O0000 
OF OO 
0000 
1000 
0000 
1100 
9000 
1200 
0000 
1300 
0000 
1400 
0000 
1500 
0000 
1600 
0000 
1700 
0000 
1800 
0000 
1900 


O2FO 


1981/12/28 


15-750 
15760 
15770 
15780 
15790 
15800 
15810 
15820 
15830 
15840 
15850 
15860 
15870 
15880 
15890 
15900 
15910 
+3920 


15930 TRKEND 


16:29:57 


DC 


dC 


DC 


DC 


DC 


DC 


DC 


DC 


DC 


DC 


DC 


dC 


DC 


DC 


DC 


DC 


DC 


BC 


HRF ASSEMBLER 


z*'0000'.2* 0800" 


Z*0000's2'0900' 


Z*O0000'-z'OAO0O' 
Z*0000'-2'OBOO' 
Z*O0000'.z2'O0C00° 
Z*0000'.2'ODO00' 
zZ*0000%.2*OE00" 
Z*0000"-42" OFC0" 
Z*0000°,2'1000° 
Z*0000',z'1100" 
Z'0000',2'1200' 
2'°0000'.2'°1300' 
Z'0000',2z'1400° 
Z*'0000'.2'1500' 
2*0000'»2'1600° 
Z*oo00',é'1700' 
z'0000'-,2'1800' 


z*'0000'.2'1900° 


DTSS 


SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 
SECTOR 


SECTOR 


L-6 HOST RESIDENT FACILITY PAGE 0030 


8 

9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 


25 
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Phere eee 


pt Ne 


- et ot 


001040 
001041 
001042 
001043 
001044 
001045 
001046 
001047 
001048 
001049 
001050 
001051 
001052 
001053 
001054 
00171055 
001056 
001057 
001058 
001059 
001060 
001061 
001062 
001063 
001064 
001065 
001066 
001067 
001068 
001069 
001070 
001071 
001072 
001073 
001074 
001075 
001076 
001077 
001078 
001079 
001080 
001081 


O2FD 


O2FF 
0301 
0302 


0304 
0306 


0308 
O30A 


0308 
030C 
O30D 
O30E 


C30F 
0310 
0311 
0312 
0373 
0314 
0315 
0316 


SOFTWARE 


FFCO 


F?CO 
3C 08 
9F40 


AB8&O 
BB8O 


D380 
8386 


O90D 
1113 
0718 
0718 


G000 
0000 
0000 
0000 
0100 
0000 
8100 
0000 


0011 


0017 


OO00D 


0308 
OSI 


0317 


0008 


~SAF 


15940 
15950 
15960 
15970 
15980 
15990 
16000 
16010 
16020 
16030 
16040 
16050 
16060 
16070 
16080 
16090 
16100 
16110 
16120 
16130 
16140 
16150 
16160 
16170 
16180 
16190 
16200 
16210 
16220 
16230 
16240 
16250 
16260 
16270 
16280 
16290 
16300 
16:510 
T6320 
V6350 
16340 
16350 
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JESECT 


WRITE 


* 


ON 


* 
* 
*« 
* 
* 


« 


* 


CMDLIS 


* 

DATLIS 
DATLOC 
LENGTH 
TRKNUM 


DATLEN 


16:29:57 HR 


F ASSEMBLER 


DTSS L=6 HOST RESIDENT FACILITY PAGE 


** ROUTINE TO WRITE DATA TO A DISKETTE TRACK *« 

KEENE K KEK KKK KKK KE KEKE KEK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK Keke KEK 
« SETS DATA AND COMMAND LIST POINTERS FOR DOIO ROUTINE 

* THE RANGE AND BASE ARE ACTUALLY SET UP IN MAIN DISKIT 

* THE CANNED COMMAND LIST IS SET UP FOR OUTPUT TO DISKETTE 


keke keke eae KKK Ka Ke Kee Kk keke Kwek kee Kee KK Keke Kk KKK Ke KEK KKK Kk ke KKK KKK Keak keke HH kK aK kK k 


RESV 


INPUT 
R7 
R1 
B? 


TRACK 
RANGE 
START 


STB 


STH 
LOV 
STR 


LAB 
LAB 


LNJ 
JMP 


RESV 
DC 
DC 
DC 
DC 


RESV 
DC 
DC 
D¢ 
DC 
DC 
DC 
DC 
DC 
EQU 


0 


WRITE DATA TO TRACK ROUTINE 


NUMBER 


CLENGTH IN BYTES) 


OF DATA 
BASE sDATLOC 


TRACKsTRKNUM 
$R3eDATLEN 
RANGE/LENGTH 


$B2e<CMDLIS 
$B3,-<DATLIS 


$B5,-<D0I0 
TRNS 


0 
OLADDR*UFtOSRANG 
OSCWA*UtO0SCWB 
OSTASK*UtISSTAT 
OSTASK*UtISSTAT 


SEEKS 


0 
0 
0 
0 
0 
0 
0 
ORWS 
0 

$ 


~DATLIS 


STUFF THE BUFFER START LOC 


STUFF THE TRACK NUMBER 
SET LIST LENGTH FOR DOIO 
STUFF THE RANGE 


SET COMMAND LIST PTR FOR DOIO 
SET DATA 8US INFO PTR FOR DOIO 


GO TO IT 
RETURN 


SET START & LENGTH 
SET SEEK & SECTOR 
SEEK & DESTROY 
DESTROY PART 


START OF MEMORY 

RANGE IN BYTES 

TRACK NUMBER», HEAD O 

ALWAYS START AT SECTOR O ON TRACK 
SEEK ORDER 

STATUS SHTICK 

WRITE DATA ORDER 

STATUS SHTICK 


0031 
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@ BILD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L*6 HOST RESIDENT FACILITY. PAGE 0032 © 
001082 16360 /EJECT ax* GENERAL DISKETTE I/0 ROUTINE ** 
@ 001083 FEB ZO i re er IT TI EI III IO i kkk kkk kkk tok & 
001084 16380 * ROUTINE CYCLES THRU A COMMAND LIST AND A DATA LIST 
001085 16390 * THAT IS SET UP BY THE CALLER. 
@ 001086 16400 * THE COMMAND LIST IS A LIST OF COMMANDS PACKED IN CONSECUTIVE S 
001087 16410 * BYTES. THE STARTING BYTE MUST BE THE LEFT BYTE OF A WORD. 
001088 16420 * THE DATA LIST IS COMPOSED OF WORDS FOR COMMAND ORDERS» ETC. 
@ 001089 16430 * THE ROUTINE MUST BE GIVEN THE LENGTH OF THESE LISTS. @ 
001090 16440 * THE LIST LENGTHS MUST BE EQUAL. 
001091 16450 Keka aR KKK KKK KKK RK KEK KKK Kk Kk kk 
@ 001092 16460 DOIO RESV ) PHYSICAL I/0 ROUTINE e 
001093 3Fe? 16470 BADSTS EQU Li secy* BAD STATUS BITS 
001094 1616 16480 HALTS EQU z2°'1616° MOD 400 ABORT CODE FOR STATUS 
@ 001095 OO3F 16490 MASK EQU Z*O03F* COMMAND MASK @ 
001096 16500 * 
001097 16510 * ON INPUT 
& 001098 16520 * R3 = COMMAND LIST LENGTH 2 
001099 16530 * R5 = CHANNEL NUMBER 
00117100 16540 * B3 ==> DATA BUSS INFO 
@ 001101 16550 * Be ==> COMMAND LIST @ 
001102 16560 * 65 = RETURN REGISTER 
001103 16570 * 
| e 003104 0317 BFOO O32F 16580 STR $R3e<D0ONE REMEMBER LIST LENGTH e 
001105 0319 3c 00 16590 LDOV $R3-ZERO START AT HEAD OF LISTS 
001106 16600 * 
| © 001107 16610 IOLOOP ~~ RESV 0 ® 
! 001108 031A B900 O3cF 16620 CMR $R3<DONE FINISHED? 
001109 031C O980. T 16630 BNE >+$D NOPE 
® 001110 0310 8385 16640 JMP $B5 @ 
001111 16650 « 
001112 16660 $D RESV 0 
e 001113 O37€ EZ2FE 16670 LLH $R6e5B2.+$R35 "POP* NEXT COMMAND }@ 
001114 O31F A873 16680 LDR $R2,+5B3 "POP' DATA BUSS STUFF 
001115 16690 SE RESV 6) 
e 001116 0320 £455 16700 OR SRE-=CHANEL ADD CHANNEL e 
001117 0321 8052 16710 10 =S$R2A=SRE EXECUTE THE COMMAND 
O322 0056 
@ 001118 16720 * @ 
001119 O52 5 E570 OO3F 16730 AND $ROe=MASK GET COMMAND 
001120 0325 6018 16740 CMV SROeISSTAT STATUS INQUIRY? 
) 001121 0326 O9F4 167390 BNE >IOLOOP NOPE» GO ON @ 
001122 16760 * | 
001123 0327 O7F9 T 16770 BIOF >= SE AWAKE SUCCESS 
) 001124 0328 A570 3Fe? 16780 AND $R2e=BADSTS CHECK THE STATUS @ 
001125 OQ32A 2970 16790 BEZ $R2e>10L00P YEPs GO ON 
001126 16800 * 
@ 001127 O32B 9870 1616 16810 LDR S$R1T,=HALTS UHOH @ 
001128 032d Q000 16820 SF HLT TURN OUT. THE LIGHTS... 
001129 O32E OFFF T 16830 B >=SF STAY TURNED OFF 
e 001130 . 16840 * eS 
001131 C32F 0000 16850 DONE RESV 10 LIST LENGTH CELL 
& e 
@¢ @ 
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001132 
001133 
001134 
001135 
001136 
001137 
001138 
001139 
001140 
001141 
001142 
001143 
001144 
001145 
001146 
001147 
001148 
001149 
001150 
001151 
001152 
001153 
001154 
001155 


001156 
001157 
001158 
001159 
001160 
001161 
001162 
001163 
001164 
001165 
001166 
001167 
001168 
001169 
Y01170 
001171 
001172 
001173 
001174 
001175 
001176 
001177 
001178 
001179 


0330 


0331 
0333 
0335 


0337 
0338 
0339 
O33A 


0538 


033C 
O33E 
0340 


0342 
0344 


0346 
0348 


0349 
0348 
O34C 


034D 
O34F 
0351 


S32. 


SOFTWARE 


0003 


D870 
FBCO 
FECO 


6026 
E455 
8057 
0056 


O78E 
F570 
F970 
0981 


D470 
DF OO 


FECO 


8386 


DA 70 
89D5 
O9EB 


E3CO 
9870 
0000 
OFFF 


1617 
0080 


0400 
FFFC 
FO3B 


FFFE 
FF FE 
2010 
0008 


0040 
0126 


FD2A 


0080 


FF10 
1617 
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16860 
16870 
168380 
16890 
16900 
16910 
16920 
16930 
16940 
16950 
16960 
16970 
16980 
16990 
17000 
17010 
17020 
17030 
17040 
17050 
17060 
17070 
17080 
17090 


17100 
17110 
TEEZO 
17130 
17140 
17150 
17160 
a ae 8, 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17250 
17260 
17270 
17280 
17290 
Ve 5O0 
17310 
1.73520 
17330 


EJECT 


16329257 
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DISS L=6 HOST RESIDENT FACILITY PAGE 0033 


** ROUTINE TO FIND THE LOWEST CHANNEL WITH A DISKETTE ** 


wm KKK KEK EK KK KEKE KEKE KK KKK KEEN KKKKKKKKE KKK KKK KEK KKK 


* THIS ROUTINE STARTS AT CHANNEL 0400(16) AND LOOPS QUERYING 


« THE DEVICE TYPE ATTACHED TO THE CHANNEL. THE FIRST DISKETTE 
« FOUND IS GRABBED AS THE DISKETTE TO USE. NON=EXITENT RESOUCE 
« TRAPS ARE IGNORED. NOT FINDING A DISKETTE HALTS THE PROGRAM. 
wee KK KKK KKK KKK KKK KKK KEK KEK KK KKK KKK KEKE KKK KK REE ERAN K KKK KK 
NODISC  EQU 29677! FABRICATED ERROR - NO DISKETTE 
NEXTCH  EQU z7*0080* CHANNEL SEARCH INCREMENTER 
RTTRAP = RTT TRAP VECTOR NOP CELL 
hd 
FINDSC  RESV 0 FIND DI09101 ROUTINE 
* 
‘ ROUTINE SETS CHANNEL IN RS (MAKES ODD FOR OUTPUT) 
“ R5 MUST THEN BE KEPT SACRED UNTIL FINISHED 
« 
LDR CHANEL/=BTLDCH START AT 0400 HEX 
LAB $B7/RTTRAP SET TRAP PTR 
SWB $B7,$TV15 MAKE NON-EXISTANT RESOURCE TRAP A NOP 
‘ AND SAVE OLD VECTOR FOR LATER 
SRCHLP = RESV 0 
LOV SRO, 1SDVID CHECK OUT THE DEVICE TYPE 
OR $R6/= CHANEL COMPLETE =CH,/F PAIR 
10 =ER7/=SR6 GET IT 
* 
BIOF >NXTCHL NUTTIN" THERE 
* 
DVMASK  EQU Z'F FFE DON'T CARE WHAT MODEL DIU 
AND SR7 +=DVMASK DIU9101 OR DIU9103, ETC 
CMR $R7/=DISKID IS THIS OUR MAN? 
BNE NXTCHL NOPE,» GO FORTH 
* 
OR CHANEL/=$I10CH1 MAKE OUTPUT DIRECTION 
STR CHANEL/<DISKCH SAVE CHANNEL FOR LEVEL 4 
* 
SWB $B7-$TV15 RESTORE TRAP VECTOR FOR NON-EXISTANT RESOUCE 
JMP TRNS RETURN TO CALLER 
* 
NXTCHL  RESV 0 
ADD CHANEL ¢=NEXTCH ADVANCE ONE CHANNEL/PORT A TIME 
CMzZ =CHANEL DON'T WRAP ON THE CHECK, WE'RE DONE 
BNE >SRCHLP ONWARD 
* 
UHOH RESV 0 
LNJ TRNS*RSETCP ALLOW REBOOT 
LDR $R1/=NODISC SET ERROR CODE 
$6 HLT 
B >=-$6 
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@ BILD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L#6 HOST RESIDENT FACILITY PAGE 0034 & 
001180 17340 /EJECT TERMINATE INTERRUPT HANDLING 
6 001181 17350 kK RRR KR KK RR kk kk dk kK ak kk kk tk kkk kk @ 
001182 17360 * THE REMAINDER OF THE PROGRAM HANDLES TERMINATE INTERRUPTS 
001183 Lf 500° St FROM THE BOOTLOAD COUPLER. THE LEVEL IS SET UP IN INITCP. 
e 001184 17380 * ALL PASSES OF THE INTERRUPT HANDLING RAISE TO THE TOP COUPLER e@ 
001185 17390 * LEVEL TO AVOID REENTRY BEFORE READY. THERE ARE THREE PASSES? 
001186 17400 * 17. READ MAINFRAME MAILBOX TO FIND STATUS LOCATION 
& 001187 17410 * 2. SEND GOOD STATUS TO MAINFRAME & 
001188 17420 * 3. GIVE MAINFRAME AN INTERRUPT 
001189 17430 * ALL PASSES IMMEDIATELY FREE COUPLER BY PULLING STATUS REGS 
@ 001190 VIG GQ em RK KK EKER EEK KEK KE KKK KKK & 
001191. ; ~ 17450 TRMINT RESV 0 TERMINATE INTERRUPT HANDLING = PASS ONE 
001192 0353 8E&70 803F 17460 LEV =$LVEXI INITIALLY WAIT ON DEVICE INTERRUPT 
e 001193 0355 8E70O 8090 17470 LEV =$LVOSX+CPLRLYV DON'T REENTER WITH NEW BEFORE OLD DONE @ 
001194 17480 * 
001195 U357 E3CO 0044 17490 LNJ TRNS/GETSTS CLEAR COUPLER STATUS 
} 001196 17500 * r 
001197 17510 RMBX RESV 0 ROUTINE TO READ L66 MBX REGION 
001198 0359 F870 3£03 17520 LDR SBR7e=DW66TE6*2'O0100'+BINMOD 
@ 001199 0358 FF4O OOGE 17530 STR SR? e+DSOPMD SET BINARY READ COMMAND & 
001200 17540 * 
001201 035D 7C04 17550 LDV BR? o»MBXWDS SET NUMBER OF L66 WORDS 
) 001202 O35€ FF40 O04C 17560 STR SR7eDSETAL e 
001203 17570 * 
001204 0360 &CCO 0063 17580 LDI ; MBX66 GET L6é6 MBX LOC 
® 001205 0362 &8&bd40 0049 17590 SOI DS66AD @ 
001206 17600 * 
001207 0364 FB8&O 03388 670 LAB $B7+<MBX FIND OUR MBX 
® 001208 0366 FFCO 0048 17620 STB $B? +DS6AD AND USE IT e 
001209 17630 * 
001210 0368 6C49 17640 LDV BROeS10LD0 DO IT TO IT 
@ 001211 0369 E455 17650 OR BR6e=CHANEL € 
001212 O36A 8180 O3AA 17660 IOLD <DCWre=SRO-=0CWLEN 
O36C 0056 
036d 0070 0018 
& 001213 17670 * e 
001214 OQO36F 8E70 803F 17680 LEV =SELVEXI HOLD ON THAR! 
e 6 
e & 
e e 
@ @ 
e & 
@ @ 


€¢ 6 


i aie, 
OP TI LY A A A RE RE SN I TE GY | A: OT TE LE a a Ee, I RE I a I AR, A: A SR A a -  -N A T  5  D A A  R ,A P P a YS E ME RE RT NAy yA TR: NE SE, 


- 7 SEES SEE RS" 


BILD SOFTWARE ~SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L=6 HOST RESIDENT FACILITY PAGE 0035 
001215 17690 / EJECT ROUTINE TO RETURN STATUS TO HOST 
001216 V7 7 OD ww ee a eR OK tO RO OK kok kk ke kk 
001217 17710 * TERMINATE INTERRUPT HANDLING - PASS TWO 
001218 17720 BARR RR RK RK KEK KAKA K KKK KER KEKE KEKE KKK KKK 
001219 17730 STRITE RESV 0 ROUTINE TO SEND STATUS TO MAINFRAME 
001220 0371 8E70 8090 17740 LEV =$LVDSX+#CPLRLV INHIBIT 
001221 0373 E3CO 0028 17750 LNJ TRNS/GETSTS CLEAR COUPLER STATUS 
OO01222 17760 * RESET DCW LIST FOR STATUS RETURNS TO L66 
U01225 0375 F870 3D03 17770 LDR $R7e=DW6T66*Z° 0100" +BINMOD 
001224 0377 FF40 0032 17780 STR ER7s+DSOPMD SET WRITE COMMAND IN IOLD DCW LIST 
001225 17790 * 
001226 0379 7CO02 17800 LDV $R7eSTSWDS SET TALLY FOR 2 L66 WORDS 
001227 O37A FF40 0030 | 17810 STR ER7/O0STAL 
001228 17820 * 
001229 037C 8CCO 0042 17830 LOI MUX+STOFF FIND wHERE STATUS WORD 
001230 O37E 70C6 17340 DOR R746 
001231 O37F €570 0003 17850 AND $R6=2'0003' 
001232 0381 8040 O02A 17860 SDI DS66AD PUT IN DCW LIST 
001233 17870 * 
001234 O5e3 FB80 0386 178380 LAB $B72<GSTAT ALWAYS SEND GOOD STATUS BACK 
001235 0385 FFCO 0029 17890 STB $B7/D$6AD 
001236 VIPOND. oe 
001237 0387 6C49 17920 LDV BR6Ee-S10L00 SEND THE FAKO STATUS 
001238 0388 £455 17920 OR SR6e=CHANEL 
001239 9389 8180 O3AA 17930 IOLD <DCWre=SR6-=DCWLEN 
03868 0056 
0238C 0070 0018 
001240 17940 * 
001241 O38E 8E70 803F 17950 LEV =$LVEXI AWAIT PRINCE CHARMING 


e e 
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BILD 


001242 
001243 
001244 
001245 
001246 
001247 
001248 
001249 
001250 
001251 
001252 


001253 
001254 


SOFTWARE 


8E70 
E380 


reek 
E870 
E455 
8057 
0056 


OF 80 


8090 
-039C 


OCC3 


0353 
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17960 /EJECT 
17970 ww RK KR KKK KKK K KKK KKK KK RK kk kk ke 
17980 * TERMINATE INTERRUPT HANDLING = PASS THREE 
W799 KERR KEK KKK EAE KKK KEE KR RK kk kkk kk 
18000 LEV =$LVDSXt+CPLRLV INHIBIT 
18010 LNJ TRNS-<GETSTS LET FREEDOM RING! 
18020 * 

138030 LDV SRV eHOOTRM GIVE L66 AN EXTRA KICK 
18040 LDR BR6e=INTH6O 
18050 OR BROe=CHANEL 
18060 10 =SR/7/=5RO 
18070 * DONE 
18080 B <TRMINT WAIT FOR THE NEXT ROUND 
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007255 
001256 
001257 
001258 
001259 
001260 
001261 
001262 
001263 
001264 
001265 
001266 
001267 
001268 
001269 
001270 
001271 


001272 
001273 
001274 
001275 


001276 
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039C 
O39D 


O39F 


O3A1 
O3A2 
O3A3 
O3A4 


O3A5 
O3A6 
O3A7 
O3A8 
O3A9 


SOFTWARE 


8755 
DE?78 


D570 


6018 
E455 
8057 
0056 


6C TA 
E455 
8057 
0056 
8386 
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18090 
18100 
18110 
18720 
18130 
18140 
18150 
18160 
18170 
18180 
18190 
18200 
18210 
18220 
16230 
18240 
13250 


18260 
18270 
18280 
18290 


FEIECT 


eR I I II I I IO ok iO doko ok ok kok ok ok ko 
FIRST GRABS THE INTERRUPTING DEVICE 

* THEN IT FREES THE COUPLER BY GETTING THE STATUS REGS 
(WHICH ALSO CLEARS THOSE REGS) 

thhktk ekki kkk ek hk kik kk tke tiki kkk kk tt kik kth tt 


ROUTINE TO CLEAR STATUS REGS IN COUPLER 


* THIS ROUTINE 


& 


GETSTS 


* 


« 


CHMASK 


& 
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DTSS L=6 HOST RESIDENT FACILITY 


** ROUTINE TO PULL COUPLER STATUS REGS ** 


RESV 0 

Ci =CHANEL 

SWR CHANEL-SIVISIVDEYV WHO DONE IT? 
EQU 2° FFSO" 

AND CHANEL »=CHMASK 

LOV $R6eEB1S8STS1 CLEAR OUT THE 
OR S$RO6e=CHANEL 

10 =ER7,=S$RO6 

LDV GROe4EISTS2 DO LIKEWISE WITH 
OR SROe2=CHANEL THOUGH 
10 =$R7Z=4ERE 

JMP TRNS 
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PAGE 0037 


1ST STATUS WORD 


WE DON'T GIVE A RATS 


®eeeeee#%eeeeeeeeeee6eee°8 


RAT EE Re ee ae ee 


i 
| 


ea 


BILD 


001277 
001278 
001279 
001280 
001281 
001282 


001283 
001284 
001285 
001286 
001287 
001288 
001289 
001290 
001291 
001292 
001293 
001294 
001295 
001296 
001297 


O3AA 
O3AB 
O3AC 


O3AE 
OSAF 


0380 
0381 


0386 
0387 


O3EB 


O34 


SOFTWARE 


3c 00 
0002 
0000 


C000 
O03C4 


3800 


8000 


0000 


0000 


0000 


0000 


Q0000 
0004 


O000 
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18310 
18320 
18330 
18340 


18350 


18360 


18370 
18380 
18390 
18400 
18410 
18420 
18430 
18440 
18450 
18460 
18470 
18480 
18490 
18500 
18510 


/EJECT 
& 

DCW 
DSOPMD 
DSTAL 
DS66AD 


DE6AD 


* 


DSDIS 


MBX66 


16:29:57 HRF ASSEMBLER 


DCW LIST IS PRESET FOR CONFIG 
RESV G 
DC =DWCNFG*2Z'0100" 
DC =TWO 
RESV 2eZ2*0O000! 
DC Z* 0000" 
DC <Mb x66 
DC =DWDSCI*2Z2°0O100° 
RESV 5/Z*OQO00' 


STATUS CELLS 


DC Z* 8000" 
RESV 4/Z'O000' 
RESV 9,Z*'OO000' 
EQU 4 

RESV éZ*0Q000' 


DTSS L=6 HOST RESIDENT FACILITY 


STATUS READ ** 


GENERAL IOLD DCW LIST 
ASCII READ CONFIG 
TALLY WORD 

L66 MBX ADDRESS 


UPPER PART OF L6 ADDRESS (0) 
L6 TOLD ADDRESS 


DISCONNECT&INTERRUPT 


GOOD GSTAT 


MBX AREA 
WORD OFFSET TO L66 STATUS PTR 


WHERE L66 MBX IS 
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BTLD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L=-6 HOST RESIDENT FACILITY PAGE 0039 
001298 99990 /EJECT 
001299 99991 « 
001300 99992 *FORCE ALL MODULES TO BE UMOD8 IN LENGTH 
001301 99993 * 
001302 03¢9 99994 ESENDR EQU $-SS$BTILD+3 
001303 036 0000 99995 RESV (CESENDR+7)/8) *8-ESENDR-Z'OU00! 
001304 99996 * 
001305 O3CD 4254 99997 DC 'BTLD® MNEUMONIC NAME OF MODULE 
O3CE 4C44 
001306 O3cCF 0Od900 99998 ESBTLD DC <S$3BTLD START OF ROUTINE 
001307 0300 99999 END BTLD SOFTWARE 


0000 ERR COUNT 
Q2200 WORD SYMBOL TABLE 


ee ee eee ee ee ee ee ee ee ee ee ee 


@ 


c c 
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d e 
® BTLD SOFTWARE “SAF 1981/12/28 16:29:57 HRF ASSEMBLER DTSS L=6 HOST RESIDENT FACILITY PAGE 0040 e 
$ kk ks 3 S70 633 644 655 666 677 1010 1039 1081 1302 
M $A 599 
e M $A 962 601 945 e 
N $ACCE 135 
N $ACCX 136 
e N $ACC2 137 & 
SALL 632 636 647 £44658 £669 #680 
N $ASCO A 
e a 67 @ 
N $ASC2 68 
N $ASC3 69 
e N $ASC4 70 © 
N $ASCS 71 
N SASC6 72 
4 N $ASC? 73 e 
N $ASC8 a 
N $ASC9 75 
e N $ASCA 79 @ 
N SASCAP 111 
N $ASCAS 114 
e N SASCAT 126 @ 
N $ASCB 8G 
N $ASCBA 129 
e N $ASCBS 127 @ 
N $ASCC 81 
N $SASCCM 116 
e N $ASCCN 120 @ 
SASCCR 59 62 
N $ASCD B2 
e N SASCDL 110 6 
N $ASCDS 117 
N $ASCDT 118 
6 SASCE ga - as é 
N SASCEC 61 
N $ASCEM 142 
e N $ASCEQ 123 € 
N $ASCF 8 4, 
N SASCEF 141 
e N SASCES 119 6 
N $SASCG 85 
N $ASCGS 143 
ad N $SASCGT 124 é 
N $ASCH 86 
N $ASCHT 139 
sd N $ASCI 87 6 
N $ASCJ 88 
N $ASCK 89 
od N $ASCL 90 3 
SASCLF 60 62 
N $ASCLP 112 
e N $ASCLT 122 @ 
N $ASCM 91 
d e 
@ e 


| 
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a era 


ee OA Ce eR ee gk SE ee ee eRe age Se 


ee oe. 
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BTLD 


Z2e22222 


22222 


z<22z2z2222 


Zz 


SASCN 
$ASCO 
$ASCP 
SASCPL 
SASCQ 
SASCQM 
SASCR 
SASCRO 
SASCRP 
SASCRS 
S$ASCS 
$SASCSC 
SASCSP 
SASCT 
$SASCU 
SASCUA 
SASCV 
SASCVT 
SASCW 
SASCX 
SASCY 
$ASCZ 
$B1 
$B2 
$83 
$B5 
$B6 
$B7 
$SBOOT 
$C 

$C 
SCFGAI 
$SCFGAO 
SCFGBI 
$CFGBO 
SCRLF 
$D 

SE 

$F 

$G 
SICTLI 
$ICTLO 
SIDINP 
$SINMBA 
SINMMA 
SINRNG 
SINTBT 
$IOCHO 
$10CH1 
$IOCH2 
SIOCH3 
$1IOLD 
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131 


33 
34 
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